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Prólogo 


El rápido avance experimentado en los últimos años en la tecnología de orde- 
nadores ha venido acompañado por una drástica reducción de su precio. Está asi- 
mismo prevista para un futuro próximo una reducción también notable en el precio 
de las unidades periféricas. Cabe pensar, por tanto, que un usuario de presupuesto 
limitado, que con anterioridad tenía acceso tan sólo a modelos muy elementales, 
podrá en lo sucesivo contar con ordenadores muy sofisticados. Podrá además librarse 
de las limitaciones que introduce el hecho de disponer como única salida del sistema 
una lista en forma de tabla numérica: por el contrario, estarán a su alcance unidades 
dotadas de microprocesador adaptables a un monitor de televisión, o modelos es- 
peciales dedicados a gráficos en color de bajo precio. En este sentido, el líder del 
sector ha sido siempre la casa Sinclair. 

Sin embargo, los paquetes de programas y aplicaciones (todo lo que se agrupa 
bajo el nombre de software o logical) no parecen mostrar tendencia alguna de dis- 
minución de precio. 

En el pasado, la obtención de salidas gráficas requería enormes inversiones tanto 
en software como en hardware; esta área, consecuentemente, ha sido reservada desde 
siempre a grandes grupos de investigación. Su inaccesibilidad al gran público ha hecho 
crecer alrededor del campo una cierta mística, atribuyéndosele injustamente una falsa 
reputación de dificultad. Este libro pretende alejar el fantasma de la complejidad; 
pretende también mostrar que los paquetes de software, complicados y caros, que 
por supuesto resultan de-gran valor para un centro de investigación, no tienen por 
qué asustar al usuario normal: de hecho, son innecesarios para la mayor parte de 
las aplicaciones. 

Este libro, por ejemplo, además de ser una introducción al tema de gráficos por 
ordenador, puede considerarse como un paquete de software; un paquete, además, 


realmente barato: mueho más barato desde luego que cualquier aplicación que se 
haya comercializado. Evidentemente, debido a la naturaleza fundamentalmente básica 
de los contenidos del libro, el usuario deberá adquirir un conocimiento aceptable de 
su dispositivo gráfico antes de realizar dibujos distintos de los que se ofrecen como 
ejemplo. Esto no tiene por qué ser una desventaja: como se comprobará, el esfuerzo 
requerido es bastante limitado. Además, el conocimiento del usuario se irá acrecen- 
tando a medida que avanza en el libro, haciendo más difícil un error de interpre- 
tación en alguno de los subprogramas. 

Se supone que el lector posee un conocimiento elemental de geometría cartesiana, 
así como del lenguaje de programación BASIC. Se presenta en el libro un gran 
número de ejercicios de programación que ayudarán al lector a aumentar su expe- 
riencia en BASIC. Por otra parte, el lenguaje BASIC es enormemente popular, de 
modo que todos los tipos de microordenadores disponen de él de una u otra forma. 
Los programas presentados aquí pueden por tanto ajustarse fácilmente para su ejecu- 
ción en máquinas distintas del ZX Spectrum. Asimismo es un buen medio de trans- 
misión de los algoritmos utilizados en gráficos de ordenador, permitiendo a los lec- 
tores traducir fácilmente estas ideas a otro lenguaje a su elección. 

Los conceptos necesarios para el estudio de gráficos de ordenador están orga- 
nizados como una combinación de teoría y ejemplos detallados. Estos últimos se 
introducen cuando y como se requieren para lograr una progresión normal de la 
materia. Se incluyen listados de programas como parte de esos ejemplos; no deben 
considerarse tan sólo algoritmos que describen la solución de problemas gráficos 
básicos, sino también como un paquete de software para gráficos, o simplemente 
como programas para dibujar determinados modelos. Estos ejemplos se completan 
con ejercicios que ayudan a ampliar las ideas expuestas. 

A menudo, los problemas prácticos que van implícitos en la programación de 
gráficos son una fuente de dificultades mayor que los propios conceptos introducidos. 
Así pues, es fundamental que los lectores implementen el mayor número posible de 
los listados de programas que se dan, a fin de comprender los algoritmos, y que 
realicen también bastantes ejercicios. La cinta de cassette que acompaña al libro 
contiene la mayor parte de los listados mayores que se dan en el mismo. Si el 
lector se siente abrumado por las matemáticas es conveniente que comience por eje- 
cutar los programas antes de comenzar a estudiar la teoría. 

Este sistema ha sido utilizado con gran éxito en la enseñanza de gráficos por 
ordenador a estudiantes y posgraduados en el Royal Holloway College. La elabora- 
ción casi inmediata de dibujos aparentemente complicados genera un entusiástico 
interés en los alumnos. La habilidad adquirida de producción de dibujos de líneas y 
bocetos de color interactivos les deja una profunda huella, alcanzando muy pronto 
un alto nivel en el campo. No pretendemos llegar tan lejos con este libro, pero con 
su lectura podrá el lector interesado encontrar accesibles otros textos de mayor nivel. 

Este libro está pensado para aquellos que son programadores competentes en 
BASIC pero novatos en el campo de gráficos. Contiene las ideas elementales y la 
información básica sobre pixels y gráficos bidimensionales, temas que deben ser do- 
minados antes de emprender nuevas aventuras, como caracteres o gráficos tridimen- 
sionales. A continuación se presenta una sección dedicada a gráficos de caracteres 
y presentación de datos (en líneas y color), que es probablemente la aplicación co- 
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mercial no especializada más importante de los gráficos por ordenador. Los pos- 
teriores introducen al lector en la geometría del espacio tridimensional, y en una 
serie de proyecciones de dicho espacio en el espacio bidimensional que proporciona 
una pantalla gráfica. Se estudian con detalle los problemas relacionados con líneas 
y superficies ocultas, así como la construcción de objetos tridimensionales compli- 
cados. Finalmente, se' ofrecen ideas avanzadas de programación BASIC y un ejemplo 
detallado de un videojuego. 

Los gráficos constituyen una de las áreas de más rápida expansión en el mundo 
de los ordenadores. Se utiliza cada vez más en campos como Diseño Asistido por 
Ordenador (Computer Aided Design, CAD), Gestión Asistida por Ordenador y En- 
señanza por Ordenador. 

Hubo un tiempo en que tan sólo las grandes compañías, como los fabricantes de 
automóviles o aviones, utilizaban estas técnicas; en la actualidad, la mayoría de las 
empresas se han percatado del potencial y ahorro que suponen estas ideas. Pero 
no es sólo provechoso: ¡además es divertido! El Sinclair ZX Spectrum es una má- 
quina ideal para aprender técnicas básicas de gráficos, y un excelente trampolín a 
unidades más complicadas (y más caras). 

Esperamos que este libro muestre al menos en parte el entusiasmo que nosotros, 
nuestros colegas y nuestros estudiantes, sentimos por el tema. Para demostrar cuán 
útiles pueden ser estos dibujos para ilustrar libros o artículos, hemos realizado todas 
las figuras de este libro por ordenador. 


Nota del traductor 


En la versión inglesa de este libro, los nombres de los subprogramas tienen 
una doble finalidad, como nombre en sí y como etiqueta de llamada a subrutinas. 
Con el fin de no alterar la parte ejecutable de los programas originales, se han 
respetado dichas etiquetas. Al final de cada capítulo se incluyen las dos versiones, 
inglesa y española, de cada subrutina para su identificación. Al final del libro se pre- 
senta un índice de subrutinas en el que de nuevo se ofrece ambas versiones. 
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Introducción 


Se puede leer este libro con una serie de criterios diferentes. En primer lugar, 
para aquellos que simplemente desean realizar dibujos complicados con su Spectrum, 
este libro puede ser simplemente un libro de recetas de programas gráficos; espera- 
mos, naturalmente, que el lector, una vez realizadas estas figuras, se sienta inclinado 
a profundizar más en el libro, intentando comprender cómo y por qué se han rea- 
lizado los programas. En segundo lugar, algunos de los programas pueden utilizarse 
para la construcción de diagramas de datos (círculos porcentuales, histogramas y grá- 
ficos), de evidente aplicación en negocios o laboratorios. Por último —el principal 
objetivo que movió a la realización de este libro— es un texto introductorio al 
campo de gráficos por ordenador, que suministra al lector desde las nociones más 
elementales de la materia hasta soluciones a problemas complicados, como gráficos 
de caracteres, construcción de objetos tridimensionales y algoritmos de líneas y super- 
ficies ocultas. 

Los programas que aparecen más adelante en el libro son demasiado complicados 
como para presentarse en forma de listados simples. Además observaremos que hay 
una gran cantidad de repeticiones en la utilización de algoritmos elementales. Por 
consiguiente, hemos abordado los programas desde una perspectiva de arriba abajo 
o modular, de tal forma que la solución de cada problema gráfico se plantea como 
una serie de soluciones a subproblemas. Estos subproblemas, por su parte, pueden 
a su vez dividirse en un conjunto de problemas a resolver (módulos); estos módulos 
se programan en forma de subrutinas BASIC. A cada uno se le asigna un iden- 
tificador (en letras minúsculas) y está dedicado a resolver una subtarea particular. 
La totalidad de estos módulos puede combinarse para resolver el problema gráfico 
requerido. En general, no utilizamos sentencias del tipo GO SUB 600 para pasar de 
una a otra subtarea de diferentes algoritmos; en su lugar, hemos preferido asignar 
el identificador de la subrutina al valor de la dirección de comienzo de la misma 
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(por ejemplo, LET escena3 = 6000), lo que nos permite escribir sentencias tales como 
GO SUB escena3. Hemos utilizado letras minúsculas para estos identificadores de 
subrutina (y también para grupos de subrutina dentro del texto); todas las demás 
variables de los programas están escritas en letras mayúsculas para evitar confusiones. 

El BASIC de Spectrum no permite pasar parámetros a las subrutinas. Los va- 
lores de los parámetros de entrada tienen que ser asignados en sentencias fuera de 
la subrutina, y se deben conocer previamente los nombres de los parámetros de salida 
si se desea que la subrutina funciones correctamente. Esto puede ser un inconve- 
niente cuando se utilizan subrutinas escritas por otra persona. Es fundamental que 
el usuario conozca los nombres de los parámetros de entrada y salida; por con- 
siguiente, en nuestras subrutinas utilizamos sentencias REM para especificar los pará- 
metros de entrada y salida de cada una de ellas. Hemos numerado todos nuestros 
programas de tal forma que todas las sentencias de programa se sitúan en líneas 
que terminan en cero, y las sentencias REM en líneas que terminan en cualquier 
otra cifra de 1 a 9, con excepción del propio nombre de la subrutina. Las senten- 
cias REM que contienen los parámetros de entrada y salida van siempre a con- 
tinuación de la sentencia REM con el nombre de la subrutina en líneas que acaban 
en 1 y en 2 respectivamente. Los listados de programas que van incluidos en la 
cinta de cassette utilizan además códigos para destacar o cambiar el color de las 
distintas sentencias REM (véase capítulo 13). En aquellos casos en que hemos con- 
siderado que la propia palabra REM molesta a la legibilidad de la línea, hemos 
empleado los códigos necesarios para hacerla invisible. Hemos minimizado el número 
de sentencias REM en la cinta para poder incluir el máximo número posible de 
listados de programa. Se aconseja que el usuario, por su parte, complete estos lista- 
dos añadiendo comentarios a su gusto, y guardando en su propia cinta el nuevo 
programa por medio de un SAVE. 

Para aquellos que deseen únicamente ejecutar los programas, presentamos al final 
de cada capítulo una lista de programas completos, junto con valores adecuados 
para los datos. De hecho, es una buena idea para todos los lectores, incluidos los 

“serios”, guardar (SAVE) los subprogramas de la cinta antes de abordar cada capí- 

tulo. Podrán de esta manera trabajar con los programas por medio de órdenes LOAD, 
MERGE y RUN, según vayan apareciendo aquéllos en el texto. La cinta de cassette 
que acompaña al libro contiene todos los listados principales del mismo, así como 
datos (BYTE) para los diagramas y juegos de caracteres utilizados en los últimos 
programas (que de otra forma, hubieran tenido que ser construidos por los propios 
lectores, con un gasto de tiempo considerable). Los programas están preparados para 
un Spectrum 48K: si usted posee una máquina de 16K deberá realizar las modifica- 
ciones que se especifican en el apéndice A. 

Como ejemplo de la tónica que seguirá el libro, presentamos a continuación 
el programa requerido para realizar la figura 1.1, un dibujo de líneas de un cuerpo 
de revolución en el cual han sido suprimidas todas las lineas ocultas. Este programa 
funciona por igual en ambos tipos de máquina. 

El programa requiere la fusión (MERGE) de los listados 2.1(“comienzo”), 2.2 (dos 
funciones FN X y FN Y), 2.3 (“fijaorigen”), 2.4 (“trazapunto”) y 3.3 (“recorte”). Esta 
combinación subprogramas se denomina “rut1”, y está preparada para dibujar figuras 
de líneas en la pantalla de televisión. 
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A “rutl” se le deben añadir los listados 3.4 (“ángulo”), 8.1 (“multiplicación3” e 
“identificación3”), 8.2 (“traslación3”), 8.3 (“escala3”), 8.4 (“rotación3”), 9.1 (“observa- 
ción3”), y 9.2 (“programa principal”). Estas subrutinas, combinadas, constituyen “rut3”, 
utilizado para transformar y observar objetos en el espacio tridimensional. 


_— 


Figura 1.1 


También necesitamos añadir 10.3 (“cuerpo de revolución”) así como la “escena3” 
que se muestra en el listado 1.1 a continuación. 


Listado 1.1 


ee 6000 REM escenas/ O 
dj platillo volante 
6010 DIM X(12):3 DIM Y(12) 
DN 6020 DIM S(6): DIM T(6) 'á 
60730 DIM A(4,4):3 DIM B(4,4): DIM 
R(4,4) 
de BR £040 DATA 0,3, 3,2 Sila 510, 4 O 
-1, 0,-3 
] 6050 RESTORE scenez 
338 4060 LET revbod=6500 O 
. 6069 REM Crea el objeto 
6070 LET NUMV=5 ] 
O; 6080 INPUT "NUMERO DE LINEAS HOR O 
: IZONTALES", NUMH 
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| 6090 INFUT "ANGULO FI "¿FHI 
Ue 6100 FOR I=1 TO NUMV+1: READ SCI 
p O )¿TC(1)3 NEXT 1 

| 6109 REM Fosiciona al observador 
6110 GO SUB i¡dRZ3: GO SUB look 
6119 REM Dibuja el objeto . 
6120 GO SUBE revbod 

6120 RETURN 


Para dibujar la figura 1.1 se requieren los siguientes datos: HORIZ = 12, VERT = 
=8, EX = 1; EY -=.2,EZ = 3, DX = 0, DY ='0, DZ =0, NUMH= 16 y PHI:=-0: 
Cada valor debe ser tecleado independientemente, según los vaya solicitando la má- 
quina. El dibujo tarda unos cinco minutos en realizarse, de manera que tenga paciencia. 
Ejecute el programa con diferentes datos de entrada. ¿Qué sucede si se hace HORIZ = 
= 6 y VERT = 4 manteniendo los demás valores constantes? Fíjese HORIZ = 15, 
VERT =:10, EX = 1, EY = -2, EZ =:3, DX = 1, DY =00, y DZ =-0. Pruebe con 
NUMH = 20, PHI = 0.1. Necesitará leer hasta el capítulo 10 inclusive para com- 
prender en su totalidad los detalles de lo que está sucediendo. 

Este ejemplo ilustra el razonamiento que subyace detrás del propio libro. Su- 
poniendo que usted sea un buen mecanógrafo, o que posea la cinta que acompaña 
al libro, podrá construir una figura tridimensional relativamente complicada de una 
forma muy rápida y sin “quemarse” demasiado. Incluso los “mecanógrafos” de un 
solo dedo (como los autores) encontrarán poca dificultad en implementar los pro- 
gramas presentados, aun antes de haber estudiado el libro con detalle. 

Esperamos que este ejemplo le induzca a implementar todos los programas del 
libro, probar la mayoría de los ejemplos y a continuación intentar dibujar sus propios 
gráficos. 

Lea ahora el resto del libro; le deseamos que pase muchas horas felices con su 
Spectrum. 
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Operaciones gráficas 
en el ZX Spectrum 


A lo largo de este libro supondremos que el lector está razonablemente familia- 
rizado con la programación en lenguaje BASIC en el ZX Spectrum. Sin embargo, 
en este capítulo, revisaremos algunos de los comandos BASIC; concretamente aquellos 
que están relacionados en todo o en parte con gráficos. Examinaremos las posibili- 
dades del Spectrum con una serie de programas de ejemplo y ejercicios sencillos. 
En los capítulos siguientes utilizaremos este conocimiento para desarrollar una com- 
prensión notable, tanto práctica como matemática, de los gráficos por ordenador. 

Consideraremos en principio el hardware y software disponibles para la genera- 
ción de dibujos. Todos los microordenadores capaces de producir una imagen en 
una pantalla de televisión generan sus representaciones gráficas utilizando tecnología 
RASTER SCAN. Esta circunstancia se da también en la mayor parte de los ordena- 
dores mayores más modernos. En síntesis, reservamos un área de la memoria para 
guardar la información que se va a presentar en pantalla, y examinamos dicha área, 
bit a bit, a la vez que el pincel de electrones barre la pantalla. El resultado es una 
imagen compuesta de puntos, cada uno de ellos representado en la memoria por un 
único bit (un conmutador binario sí/no). En el caso más sencillo, el rayo se conecta 
durante un corto período de tiempo, cada vez que se encuentra un “sí” binario, pro- 
duciendo un punto de luz en la pantalla. 


INK y PAPER. 


El Spectrum nos ofrece dos comandos que controlan directamente la forma de 
presentación de los puntos. El dibujo está realizado con puntos de tinta (ink) co- 
rrespondientes a los “sies” binarios (también llamados bits altos) sobre un fondo de 


19 


papel (paper) correspondiente a los “noes” binarios (bits bajos). Estos comandos u ór- 
denes, llamados en el Spectrum PAPER e INK, se utilizan pulsando el nombre corres- 
pondiente seguido por un número N comprendido entre 0 y 9. 

PAPER N inicializa el color de fondo del dibujo. Una vez ejecutada esta orden, 
todos los bits bajos que se generen en memoria se presentarán en pantalla en el 
color N (hasta que se ejecute una nueva orden PAPER). 5 

INK N inicializa los puntos luminosos correspondientes a los bits altos al color N 
de una forma semejante. 

El número N, cuando está comprendido entre 0 y 7, representa el color impreso 
sobre la tecla correspondiente en el teclado del ordenador. Si se hace N igual a 9, 
el color de PAPER/INK se hace blanco o negro contrastando con el otro color 
INK/PAPER usado en ese momento. En general, tiene más claridad una tinta (INK) 
negra sobre papel (PAPER) blanco, como resulta obvio de la lectura de cualquier 
libro, siendo por tanto el utilizado normalmente. 


Display File 


Cuando existe una zona de la memoria que equivale a la pantalla, se dice que 
ésta está “cartografiada” (mapped). En el Spectrum, esta zona de memoria se denomina 
display file y comienza en la localización 16384. Veamos cómo se afecta la salida 
en pantalla cuando cambiamos el contenido de esta zona de memoria. Podemos hacer- 
lo con un programa como el presentado en el listado 1.1. 


Listado 1.1 


10 LET CORNER = 16384 
20 LET VALUE = 13 

50 POFE CORNER, VALUE 
40 STOF 


Este programa utiliza la industrucción POKE para almacenar un valor (VALUE) 
en la primera localización del display file. Esta localización contiene precisamente 
la información correspondiente a la esquina (CORNER) superior izquierda de la pan- 
talla. La modificación conseguida es equivalente a la representación binaria del valor 
que hemos introducido como VALUE: en este caso, 10001001. 


Ejercicio 1.1 


1) Pruebe a introducir diferentes valores (VALUE), alterando el programa de la si- 
guiente forma: 
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a) utilice una representación binaria (BIN) para VALUE. 
b) utilice un bucle FOR ... NEXT para cambiar la variable. 


2) Utilice los comandos PAPER e INK para cambiar los colores de fondo y es- 
critura y vuelva a ejecutar el programa para observar las diferencias con el caso 
anterior. 


BORDER 


Al cambiar el color del papel (PAPER) observaremos inmediatamente que no podemos 
escribir en toda la pantalla del televisor. Por el contrario aparece un área alrededor 
del borde del papel, cuya misión es evitar la distorsión que existe en los extremos de 
la pantalla de cualquier televisor. El color de esta área externa se puede variar de 
una forma similar a la empleada con las órdenes PAPER e INK, por medio del comando 


BORDER N 


donde N puede variar entre 0 y 7 e indica el nuevo color del área externa. 


Bloques de caracteres 


Se puede conseguir un dibujo completo almacenando diferentes valores en las dis- 
tintas localizaciones de memoria del display file de una forma semejante a la presen- 
tada en el listado 1.1. Por ejemplo, podemos almacenar los ocho valores 0, 98, 148, 
136, 136, 136, 148, 98, en las localizaciones del display file que representan el co- 
mienzo de ocho líneas consecutivas de la pantalla (véase listado 1.2). En este caso, 
al igual que en el anterior, observaremos el dibujo formado por los puntos INK 
correspondientes a los “unos” mostrados en la figura 1.1. 


128.64: 32 "d6 "8 4 2 1 


00000000 = = 0 
01100010 = 64 + 32 +4 = :98 
10010100 = 128 +16 +4 = 148 
10001000 = 128 +8 = 136 
10001000 = 128 + 8 =136 
10001000 = 128 +8 =136 
10010100 = 128 + 16 +4 = 148 
01100010 = 64 + 32 +2 = 98 
» Figura 1.1 


Adelantaremos que esta es la manera en que se definen (y redefinen) los carac- 
teres en el Spectrum; comentaremos más detalladamente este tema en el capítulo $5. 
En cualquier caso, sirva este ejemplo para percatarnos de que un dibujo, aun tan 
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pequeño como éste, requiere bastante tiempo para su elaboración, debiendo realizarse 
un programa complicado en comparación con el resultado obtenido. 


Listado 1.2 


10 LET CORNER = 1 
20 LET LINE = 256 
3O DATA 0,98,148,136,136,136, 1 


6384 


40 FOR 1 = i TO 7 
50 LET MEMORY = CORNER + IxX*LIN 


60 READ VALUE 

70 POKE MEMORY, VALUE 
80 NEXT 1 

90 STOP 


PLOT y DRAW 


Hemos observado cómo se puede alterar la pantalla almacenando diferentes va- 
lores en el display file. Debemos tener en cuenta, sin embargo, que hay más de seis 
mil localizaciones en el mismo, y, por tanto, cambiar cada una de ellas individual- 
mente puede resultar bastante tedioso. Necesitamos obviamente un método más efec- 
tivo de alteración de este display. 

Dentro del BASIC se nos ofrece una serie de comandos gráficos para resolver este 
problema; los más sencillos son PLOT y DRAW. Todos los comandos gráficos fun- 
cionan considerando el display como una rejilla (grid) de 256 puntos horizontales 
por 176 verticales (45.056 en total). Estos puntos se denominan pixels, y se iden- 
tifican por medio de una pareja de números enteros. Los comandos gráficos ayudan 
a construir dibujos permitiéndonos controlar una “pluma para gráficos” (graphics pen), 
que inicialmente está colocada en el pixel (0, 0). Veamos ahora cómo funcionan estos 
comandos. 

PLOT X, Y mueve nuestra pluma hasta el pixel (X, Y) y dibuja un punto allí. 

DRAW X, Y dibuja una línea desde la posición actual de la pluma hasta el 
punto que se encuentra a X pixels de distancia en horizontal e Y pixels de dis- 
tancia en vertical. Cuando X es negativo, el punto final se encontrará a la izquierda 
de la posición original, mientras que si es positivo, se hallará a la derecha. De igual 
forma, si Y es negativo, el punto final se localizará por debajo de nuestra posición 
anterior, y si es positivo, por encima. 

Una vez ejecutada la orden, la pluma permanece en el último pixel alcanzado, 
esperando una nueva orden. Antes de pasar a estudiar los restantes comandos grá- 
ficos, más avanzados, observaremos lo que se puede hacer utilizando únicamente líneas 
rectas y/o puntos. 
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Estamos ahora en situación de dibujar figuras de gran tamaño en la pantalla. 
Por ejemplo, podemos dibujar un marco alrededor del área de pantalla accesible a 
gráficos (listado 1.3). 


Listado 1.3 


10 PLOT O 
20 PLOT 2 
30 PLOT 2 
40 PLOT O, 
50 IF INKEYS$ <2"" THEN GO TO 


60 IF INKEY$ = "" THEN 60 TO 


70 DRAW 0,175 
80 DRAW 255,0 

90 DRAW 0,-175 

100 DRAW -255,0 

110 STOP - 


Este programa dibuja en primer lugar los puntos en la esquina del papel, utilizando 
el comando PLOT; a continuación espera a que se pulse una tecla y une por medio 
de líneas los puntos dibujados anteriormente. Al comparar el funcionamiento de los 
comandos PLOT y DRAW observamos que hay una importante diferencia entre 
ellos: el comando PLOT utiliza coordenadas de pixel absolutas, en tanto que DRAW 
usa las posiciones relativas de los puntos. Esto significa que, si se desea dibujar un 
segmento entre dos pixels de la pantalla, es necesario utilizar en primer lugar una 
orden PLOT para colocar la pluma en el punto de comienzo de la línea, calcular 
a continuación la posición del extremo opuesto con respecto al punto inicial, y final- 
mente utilizar la orden DRAW para dibujar la línea. Obsérvese que en el listado 1.3 
están predeterminados todos los puntos antes de ejecutar el programa. Usualmente, 
los puntos se introducirán por medio de sentencias INPUT o READ, o bien se cal- 
cularán durante la ejecución. 


Ejercicio 1.2 

Escríbase un programa que calcule las posiciones de las líneas necesarias para 
dibujar un enrejado. Dibújese el mismo a continuación utilizando el comando DRAW 
dentro de dos bucles FOR ... NEXT (uno para las líneas horizontales y el otro 
para las verticales). 
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Ejercicio 1.3 


Escríbase un programa que acepte N pares de coordenadas de pixels como INPUT 
desde teclado, y dibújese (usando DRAW) un polígono irregular de N lados uniendo 
los puntos introducidos por orden. Téngase en cuenta que el último punto introdu- 
cido deberá unirse con el primero. 


PRINT y LIST 


Hasta ahora no hemos discutido el método más obvio de cambiar la pantalla, es 
decir, la utilización de los comandos PRINT y LIST. La razón es que estos comandos 
utilizan bloques del tamaño de un carácter, y están diseñados en principio para ser 
utilizados en gráficos de baja resolución. Volveremos en el capítulo 5 sobre este tema, 
pero, ya que el Spectrum permite mezclar libremente gráficos de alta y baja resolución, 
daremos un pequeño ejemplo aquí. Supóngase que añadimos la línea 


LIST 


al comienzo del programa del ejercicio 1.2, y que preparamos el programa para di- 
bujar un enrejado de 32 líneas verticales y 22 horizontales. Obtendremos un resultado 
semejante al que se presenta en la figura 1.2, en el que se muestra el tamaño y la 
posición de los bloques de caracteres. 


Figura 1.2 


Podemos usar la orden PLOT para comprobar la capacidad de alta resolución 
del Spectrum dibujando curvas fractales. 
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Dibujar una fractal sencilla requiere seguir las siguientes etapas: imagínese un 
cuadrado cuyos lados tienen una longitud 4”. Dicho cuadrado puede ser dividido en 
16 cuadrados menores, cada uno de los cuales tiene una longitud 4””*. En la figura 1.3 
hemos representado dichos cuadrados numerándolos desde el 1 al 16. Cambiando la 
posición de cuatro de estos cuadrados menores, los correspondientes a los números 2, 
8, 9 y 15, obtenemos la figura 1.4. 


Figura 1.4 
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A continuación dividimos cada uno de los cuadrados del modelo obtenido en 
otros 16 cuadrados más pequeños y reordenamos los cuadraditos obtenidos en cada uno 
de ellos de una forma similar. Repetimos este proceso hasta que obtenemos cuadrados 
de longitud 1. La composición fractal resultante se compondrá exclusivamente de 
cuadrados unitarios, los cuales podemos dibujar (utilizando la orden PLOT) como 
pixels individuales. El programa que se presenta en el listado 1.4 comienza con un 
cuadrado cuyos lados tienen una longitud de 64 pixels, que equivale a 4*; por tanto, 
debemos anidar 3 bucles FOR .. NEXT cada uno dentro del anterior. El resultado 
final se muestra en la figura 1.5. 


Figura 1.5 
Listado 1.4 
10 DIM X(16): DIM Y(16) C 
20 FOR 1 = 1 704 
ZO FOR J=1 704 ' 
20 LET K = 41 +3I-4 c 
50 LET X(Kk) = J - 323 LET Y(K) | 
UD ) 
MS 60 NEXT J: NEXT 1 O 
| 70 LET X(2) = 0: LET Y(2) = 
O Ss O 
80 LET X(8) = 22 LET Y(8) = 
19 
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90 LEFT X07) 


21 LET Y(9) = 


i A 1 : | 
O 100 LET X(15) = -11 LET Y(15)= O | 
2 

En 110 FOR 1 = 1 70 16 

2 120 FOR J = 1 TO 16 
130 FOR K = 1 TO 16 

a 140 LET XX = 16*X(1) + 4xX(J) + 

ES Xx (K) a 
150 LET YY = 16x*Y(1) + 4xY(J) + 

O Y (K) 

. 160 PLOT 128+XX,88+YY 
170 NEXT Kz NEXT Jz NEXT 1 

O 180 STOP 


INVERSE y OVER 


Estudiaremos ahora las distintas opciones que afectan al modo en que las líneas 
y puntos se presentan en la pantalla. Existen dos comandos de este tipo, los cuales 
se utilizan introduciendo el nombre del comando seguido por un númerp. El número 
es 1 para producir el efecto, y O para desconectarlo de nuevo. 

INVERSE: cuando está conectado, todas las líneas o puntos que se dibujen apa- 
recen en el color del fondo (PAPER). Es decir, los conmutadores binarios se des- 
conectan en lugar de conectarse. 

OVER: cuando se activa esta orden, cada pixel afectado por un comando gráfico 
cambia a su estado opuesto. Así un pixel de color de INK cambiará al color de 
PAPER y viceversa. Es decir, el conmutador binario cambia de posición cada vez que 
se afecta el pixel. 

Se puede utilizar estas dos órdenes para producir programas que generan com- 
posiciones aparentemente complicadas y displays que cambian rápidamente. En el 
listado 1.5 se presenta un programa que combina dos métodos de creación de com- 
posiciones complicadas a partir de instrucciones muy simples. 


Listado 1.5 


10 OVER 1 

20 LET LINES=400 

30 LET A=01: LET ANGLE=2x*FTI/LIN 
ES 

40 FOR I=1 TO LINES 

50 LET Xx=85x*C0S A 

560 LET Y=85*SIN A 
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70 PLOT 128,88 

80 DRAW X, Y 

90 LET A=A+ANSLE 

100 NEXT 1 

110 OVER O 

120 STOP a 


Al estar formado el dibujo por una serie de puntos discretos (pixels), las líneas 
inclinadas se dibujarán como una serie de pequeños escalones horizontales o verticales. 
Cuando se dibujan dos líneas inclinadas con ángulos ligeramente diferentes y suficien- 
temente próximas la una a la otra, muchos de estos escalones coincidirán en ambas. 
Obsérvese la figura 1.6, dibujada por el listado 1.5. Las líneas que forman el área 
central solapan unas con otras muchas veces, de forma que dicha área debiera ser 
una mancha negra si no se utilizase la orden OVER. Utilizando OVER, sin embargo, 
aquellos pixels que han sido afectados por una orden de dibujo un número impar de 
veces quedarán conectados, en tanto que los otros se desconectarán. Esto produce el 
llamativo dibujo del centro de la figura. En la parte externa, por el contrario, el 
dibujo está formado por pequeños huecos residuales que aparecen entre los escalones 
de las líneas, tratándose por tanto de pixels que no pertenecen a ninguna de ellas. 


| 


Figura 1.6 


Ejercicio 1.4 


Modifíquese el listado 1.5 para introducir el valor LINES por medio de una sen- 
tencia INPUT; introdúzcase también una variable de tipo string, que indique si se 
utiliza o no la opción OVER. Ejecute varias veces este programa variando el valor 
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LINES e incluyendo o no OVER para comprobar las partes del dibujo afectadas por 
una u otra variable. 


Uno de los trucos más empleados para producir vistosas imágenes de formas 
cambiantes ha sido la utilización repetida de números aleatorios. El listado 1.6 pre- 
senta un sencillo ejemplo de este método utilizando RND y OVER para colocar 
-pixels al azar en la pantalla. 


Listado 1.6 
; A 
e 10 OVER 1 O 
20 LET X = INT (RND*256) Ñ 
ZO LET Y = INT (RND*174) 
ELA 40 FLOT X,Y O 
| 50 BEEF 0.05, (X — Y)/10 
hi 60 GO TO 20 


Ejercicio 1.5 


Modifíquese el listado 1.6 de manera que dibuje líneas (DRAW). Realícese una 
versión que una los puntos aleatorios según se van generando, y otra que dibuje 
una línea desde el centro de la pantalla (128,88) a cada uno de los puntos. 


En el ejercicio anterior observamos que la opción OVER asegura que el display 
cambiará cada vez, incluso si se repite el mismo comando; por ejemplo, dibujando 
el mismo punto o línea. La opción OVER se puede utilizar de esta forma para pre- 
sentar en pantalla un objeto durante un corto período de tiempo, dibujándolo dos 
veces, la primera para presentarlo en la pantalla y la segunda para hacerlo desaparecer. 
El listado 1.7 mueve un punto alrededor de la pantalla dibujándolo con la orden 
PLOT e inmediatamente ejecutando otra orden PLOT en su posición anterior para 
eliminar el punto previo. 


Listado 1.7 


10 OVER 1: PAPER Ox  INK 71 
BORDER 4:  CLS 
| 20 LET SPEED = 2 
O -30 LETX=0: LETY=0 
40 LET XADD = SPEED: LET YADD 
= SPEED 
50 PLOT X,Y 
60 LET OLDX 


Xi: LET OLDY = Y 
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70 LET X = X + XADD 
80 IF X > 255 - SPEED: OR X < 
E SFEED THEN LET XADD = -XADD - 
90 LET Y = Y + YADD 
100 1F Y > 174 - SPEED OR Y < $ 
O FEED THEN LET YADD = -YADD + 
110 PLOT X,Y 
120 FLOT OLDX,OLDY 
O 130 GO TO 640 


a pi AS __— == Eme L ) 


Podemos ampliar este programa de manera que controlemos desde teclado el mo- 
vimiento del punto listado 1.8). Las letras minúsculas alrededor de la “f” permiten al 
punto moverse en ocho direcciones distintas bajo nuestro control. Si se pulsa la letra 
“p” el punto va dejando un rastro que muestra sus movimientos anteriores. Si se 
pulsa una “q” el punto deja de marcar dicho rastro. 

Este tipo de animación es una técnica comúnmente utilizada y de gran importancia. 
Por nuestra parte, haremos uso de ella con extensión, tanto en juegos como el incluido 


en el capítulo 14, por ejemplo, como en programas, como el “cursor” del capítulo 6. 


Listado 1.8 
A a 
10 OVER 1 O 
20 LET X= 0: LETY=0 
3O- PLOT Y : 
40 LET OLDX = X: LET OLDY = Y U 
50 LET XADD = O: LET YADD = 0 
E 60 LET As = INKEY$: IF A$ = " 
Or " THEN 60 TO 60 qe dl 
| 70 IF A$ = "p" THEN OVER O | 
1 80 IF A$ = "q" THEN OVER 1 e 
id 90 IF (A ="e" OR A$ = "d" OR o 
A$ = "c") AND X > 0 THEN LET X 

e ADD = -1 ( 
100 IF (A$ ="c" OR A$ = "y" OR ñ 
A$ = "b") AND Y > O THEN LET Y 

O ADD = -1 , 
ps 110 IF (As ="t" OR A$ = "g" OR 
| AS = "b") AND X < 255 THEN  LET 

23% XADD = 1 ' 

120 IF (A$ ="e" OR As = "r" OR 
A$ = "t") AND Y < 175 THEN LET 
E YADD = 1 E 


O: 130 IF XADD = O AND YADD = O T 
HEN GO TO 60 
| 140 LET X = X + XADD: LET Y = 
O Y + YADD 6 
150 FLOT X,Y 
160 FLOT OLDX, OL.DY 
O 170 GO TO 40 


| 
AA Si —— mn _ > = L 


Podemos lograr secuencias de animación a gran escala utilizando líneas para ex- 
tender o contraer un polígono. El listado 1.9 utiliza este método junto con la orden 
INVERSE para producir un efecto de “zoom” rápido. 


Listado 1.9 
10 LET 1 = O: INK 9 Ol 
20 LET UF = 175: LET ACROSS = | 
| ess 
( 30 LET X = Oz LET Y = 0 ( 
40 LET DIF = 1 
a 50 INVERSE 1 
O] 60 PLOT X,Y O 
70 DRAW O,UP: DRAW ACROSS, O 
E 80 PLOT X,Y 
O 90 DRAW ACROSS,0: DRAW 0, UF O 
| 100 LET X = X + DIF: LET Y = Y 
' + DIF 
O: 110 LET UP = UF - 2 * DIF pd 
120 LET ACROSS = ACROSS -2 * DI 
LO P | ' 
] 130 IF UP < 0 OR UP = 175 THEN 
| LET DIF = -DIF: LET 1 =1 - 1 
O! 140 IF UP = 175 THEN. PAFER RND "o 
| *7: CLS | 
O 150 GO TO 50 LO 
HA = A S _ A = _ 1 == E) 
Ejercicio 1.6 > 


Dibuje y rellene un cuadrado compuesto por 40 x 40 pixels. Mueva dicho cuadrado 
en la pantalla controlando el movimiento por teclado. Nótese que necesita únicamente 
cambiar los bordes del cuadrado. 
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FLASH y BRIGHT 


Habiendo visto ya lo que es posible hacer en blanco y negro, pasaremos ahora 
a comentar las posibilidades que tenemos para realizar gráficos en color. El Spectrum 
permite tener en pantalla todos los colores a la vez, pero dentro de cada bloque 
de caracteres pueden existir únicamente dos colores, los correspordientes a PAPER 
e INK. A estos colores se les puede asignar además el atributo BRIGHT y/o FLASH; 
además, se pueden conectar o desconectar de igual forma comandos como OVER 
e INVERSE para conseguir efectos especiales. 

FLASH: cuando se asigna una orden FLASH a un bloque determinado, los colores 
PAPER e INK se intercambiarán alternativamente. 

BRIGHT: los bloques en los que se asigne un atributo BRIGHT mostrarán un 
brillo incrementado tanto en el color del papel como de la tinta (PAPER e INK, 
respectivamente). Esto hace que el resto de bloques no afectados por dicho atributo 
aparezcan más oscuros. 

FLASH y BRIGHT se pueden asignar también a 8, manteniéndose los valores 
preexistentes sin alteraciones de órdenes PRINT. 


Atributos 


Las combinaciones de FLASH, BRIGHT, PAPER e INK utilizadas para cada 
bloque se almacenan en memoria en un fichero denominado fichero de atributos 
(attribute file). En dicho fichero se utiliza una localización de memoria para cada 
bloque; se encuentra situado en la memoria inmediatamente después del display file, 
comenzando en la localización 22528. El listado 1.10, una versión modificada del 
listado 1.1, altera estos valores directamente tal como hicimos con el display file. 


Listado 1.10 


EA A 
l O: 10 LET CORNER = 22528 O 
| ] 20 INFUT "VALUE = BIN "5 LINE 
Vs 
il ZO LET VALUE = VAL ("EIN " + Y O 
$) 
40 FRINT AT 0,07"x*" a 
50 FOKE CORNER, VALUE o) 


60 GO TO 20 Ú 


Ejercicio 1.7 


Utilice el programa del listado 1.10 para alterar bits individuales dentro de la 
variable VALUE almacenada en la primera localización del fichero de atributos. 
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Esta variable VALUE afecta al primer bloque completo de manera que los puntos 
pertenecientes a dicho bloque podrán parpadear o incrementar su intensidad, según 
estén activados FLASH y BRIGHT respectivamente; también estarán determinados 
los colores utilizados para PAPER e INK. Toda esta información se almacena en 
forma de un número binario (BIN) de la siguiente manera: 


FLASH — 0 ó 1; BRIGHT — 06 1; PAPER — 000 a 111; INK — 000 a 111 


De esta forma podemos calcular el significado de introducir un determinado valor 
en el fichero de atributos, según se indica en la figura 1. . 


FLASH BRIGHT PAPER INK 


Valores normales = 1 0 5 2 

Equivalente BINario = 1 0 101 010 

BIN 10101010 = 128 + 32+8+2=170 
Figura 1.7 


El ejemplo anterior asigna el valor adecuado a la localización correspondiente 
del fichero de atributos para que el bloque afectado parpadee (FLASH), no brille 
(no BRIGHT), en tanto que el fondo (PAPER) será de color cyan (azul claro), y la 
tinta (INK) roja. Se puede averiguar el valor de los atributos asignados a cualquier 
bloque utilizando la función ATTR (ROW, COLUMN). Los parámetros ROW y 
COLUMN especifican la posición del bloque contando el número de filas (ROW) 
a partir de la línea superior, y el número de columnas (COLUMN) a partir del 
borde izquierdo. De hecho, son los mismos parámetros que se utilizan en la orden 
PRINT AT para seleccionar un determinado bloque. De esta forma es muy sencillo 
escribir un programa que cambie los atributos de los bloques al azar (véase lista- 
do 1.11). El efecto conseguido es el mismo que el que se lograría introduciendo con 
órdenes POKE valores aleatorios en el fichero de atributos (véase Manual BASIC 
del Spectrum). 


Listado 1.11 
10 FLASH INT (RNDx*2) 
20 BRIGHT INT (RNDx*2) 
ZO PAPER INT (RNDx*8B) 
( 40 INE INT —(RNDx*8) 
S0 LET ROW = INT (RND*22): LET 
COL. = INT (RND*ZZ 
( 60 FRINT AT ROW, COL¿"*" 
70 BEEF 0,02,RNDx*40 
MES 80 60 TO 10 > 
¡A E az E =3 A , a 1 
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Ejercicio 1.8 


Modifique el programa anterior de manera que cambie un bloque al azar, y a 
continuación calcule y presente en pantalla los atributos FLASH, BRIGHT, INK 
y PAPER impuestos, por medio de la función ATTR. 


Por conveniencia, utilizamos la tabla 1.1 para efectuar la conversión entre valores 
asignados al fichero de atributos y su equivalente binario que será el que determine 
los atributos a utilizar. 


Tabla 1.1. Conversión de atributos 


PAPER: INK MODO 
Black Blue Red Magenta Green Yellow Cyan White 
Black 0 1 2 3 4 S 6 7 NORMAL 
64 65 66 67 68 69 70 71 BRIGHT 


128: 129 130 131 132 133 134 135 FLASH 
192 193 194 195 196 197 198 19 BRIGHT 


+ FLASH 
Blue 8 9 10 11 12, 13 14 15 NORMAL 
72 73 74 75 76 77 78 79 BRIGHT 


136. 137 -138 139 140 141 142 143 FLASH 
200 201 202 203 204 205 206 207 BRIGHT 


+ FLASH 
Red 16 17 18 19 20 21 22 23 NORMAL 
80 81 82 83 84 85 86 87 BRIGHT 


144 145 146 147 148 149 150 151 FLASH 
208 209 210 211 212 213 214 215 BRIGHT 


+ FLASH 
Magenta 24 23 26 27 28 29 30 31 NORMAL 
88 89 90 91 92 93 94 95 BRIGHT 


152 153 154 155 156 1S1. “158 159 FLASH 
216 217 218 219 220 221 222 223 BRIGHT 
+ FLASH 


Green 32 33 34 35 36 37 38 39 NORMAL 
96 97 98 99 100 101 102 103 BRIGHT 
160 161 162 163 164 165 166 167 FLASH 
224 225 226 221 228 229 230 231 BRIGHT 
+ FLASH 


Cyan 40 41 42 43 q 45 46 47 NORMAL 
104 105 106 107 108 109 110 111 BRIGHT 


Tabla 1.1. Conversión de atributos 


PAPER INK MODO 
Black Blue Red Magenta Green Yellow Cyan White 
168 169 170 171 172 173 174 175 FLASH 
232. 233-234. 5235 236 237 238 239 BRIGHT 
+ FLASH 
Yellow 48 49 50 51 52 53 54 55 NORMAL 


112. 113. 114 115 116 17 118 119 BRIGHT 

176 177 178 179 180 181 182 183 FLASH 

240 241 242 243 244 245 246 247 BRIGHT 
+ FLASH 


White 56 ST. -:38 59 60 61 62 63 NORMAL 
120 121 122 123 124 125 126 127 BRIGHT 
184 185 186 187 188 189 190 191. FLASH 
248 249 250 251 252 253 254 255 BRIGHT 
+ FLASH 


Podemos imaginar un pixel en una pantalla de televisión a color como un con- 
junto de tres puntos luminosos muy próximos colocados en los vértices de un triángulo 
equilátero. Cada pixel dispone de un punto rojo, otro azul y otro verde, y las lo- 
calizaciones del fichero de atributos se utilizan para iluminar estos tres diferentes 
colores. El display file indicará que un pixel determinado debe dibujarse con un color 
de tinta (INK) en concreto. Los tres bits más bajos (los bits 0, 1 y 2) del valor 
correspondiente al bloque a que pertenece ese pixel se utilizan para decidir cuáles 
puntos, verde, rojo y/o azul deben estar iluminados y cuáles no. Nuestros ojos con- 
tienen únicamente tres tipos de pigmentos sensibles al color (verde, rojo y azul, respec- 
tivamente). El cerebro, por su parte, toma las señales de estos puntos y las combina 
en un único punto de un color compuesto. De esta forma, si los tres últimos bits 
del atributo son 111, equivalentes al color 7, tenemos una mezcla de verde, rojo y azul. 
Esta mezcla corresponde a la luz blanca o, en nuestro caso, a tinta blanca. Podemos 
traducir los demás códigos de color obtenibles escribiéndolos en forma binaria según 
se muestra en la figura 1.8. 

Los pixels del bloque que correspondan a la zona de fondo (PAPER) tendrán 
sus tres puntos iluminados o no de forma equivalente. Los bits que controlan el 
color del papel son el 3, 4 y 5. El bit 6 del atributo indica si el bloque está afectado 
o no por BRIGHT: cuando el atributo BRIGHT está activo, se aumenta la intensidad 
de todos los puntos iluminados. El bit 7, por su parte, cuando está activo, inter- 
cambia los colores de INK y PAPER. La velocidad de intercambio (es decir, la velo- 
cidad de intermitencia) depende de un valor interno del ordenador: en el Spectrum 
el cambio se produce aproximadamente cada tercio de segundo. 
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Color Número Eq. binario Puntos iluminados 


Negro (Black) 0 000 

Azul (Blue) 1 001 Azul 

Rojo (Red) 2 010 Rojo 

Magenta (Magenta) 3 011 Rojo + Azul 

Verde (Green) 4 100 Verde 

Cian (Cyan) 5 101 Verde + Azul 

Amarillo ( Yellow) 6 110 Verde + Rojo 

Blanco ( White) 7 111 Verde + Rojo + Azul 
Figura 1.8 


En general, podemos utilizar en gráficos de alta resolución dos colores, pero se 
debe proceder con cuidado. Téngase en cuenta que en un bloque determinado no puede 
haber más de dos colores simultáneamente. Excepto por esta limitación, se pueden 
conseguir gráficos de alta resolución completamente coloreados. 


Ejercicio 1.9 


Experimente con los diferentes colores utilizando los programas de este capítulo. 
Observará que hay ciertas combinaciones de colores que resultan demasiado com- 
plicadas para que un aparato de televisión normal pueda tratarlas. A menos que 
esté utilizando un monitor de gran calidad en lugar del televisor, obtendrá efectos 
muy curiosos de ondas moviéndose en la pantalla utilizando una combinación de 
colores llamativos en el programa del listado 1.5. 


Animación simple 


Podemos producir más efectos de animación en baja resolución utilizando colores 
y la orden FLASH. El listado 1.12 ejemplifica algunas técnicas interesantes de ani- 
mación en color. La primera parte del programa es particularmente útil, ya que la 
pantalla no necesita mantenimiento una vez que se inicializa. El borde de la figura es 
una secuencia de bloques compuesta por bloques de papel rojo y tinta cian y bloques 
de papel cian y tinta raja, todos ellos con la orden FLASH activa. Al ejecutarse 
este programa observará un curioso efecto óptico que hace pensar que los bloques 
rojos y azules se están desplazando alrededor del borde. 


Listado 1.12 
q : j E : 
| O 10 FLASH 1: FAFER 2: INE 5 
20 FOR 1 =0 TO 1 
30 FOR J =0 TO 15 
(O) | 40 PRINT AT 0,2%] + Ig U " O 


JO PRINT AT 21,2%] + 1 - 13 " 
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AMA ye E 


60 NEXT J 
O 70 FOR 3 =0 TO 10 . 
; 80 FRINT AT 2xJ +1,03 " " MO 
90 FRINT AT 2*J] + 1 -1,313 " " 
O 100 NEXT J ¿q 
á 110 PAPER 5: INK 2 ae 
2120 NEXT 1 
O 170 FLASH Or LETP=0 a 
140 FOR l = 1 TO 20 pos 
150 PRINT 1,13 PAPER Fs" o" | 
O 160 LET P =P +11 1F P=7 THE LO 
N LETPF=0 ad 
170 NEXT 1 
O 180 GO TO 140 et 
i 


Ejercicio 1.10 


Escriba una versión en color de baja resolución del programa del punto en mo- 
vimiento o de cualquier otro programa de animación. Mueva en la pantalla un bloque 
completo en lugar de un pixel. 


CIRCLE y DRAW 


El Spectrum dispone de otros dos comandos para gráficas de alta resolución 
que no hemos estudiado todavía: CIRCLE y DRAW. Se utilizan ambos para dibujar 
líneas curvas. 

Una orden del tipo CIRCLE X, Y, R dibuja un círculo de radio R pixels con 
el centro situado en el pixel (X, Y). Es importante tener en cuenta que una vez eje- 
cutada esta orden, la pluma queda situada en el pixel situado en la parte derecha 
del círculo que está justo debajo del centro. 

Por su parte, DRAW X, Y, A dibuja una línea curva desde la posición en que 
se encuentra la pluma en ese momento hasta la posición relativa X, Y, girando un 
ángulo A. Esta línea curva será un arco de círculo. El ángulo efectuado por la línea 
debe especificarse en radianes y estar comprendido entre —PI y Pl. 

Un ejemplo del uso de estos comandos se presenta en el listado 1.13, que pro- 
ducen la imagen de la figura 1.9. 
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Listado 1.13 


1 Y pa! 


Es 1 10 CIRCLE 128,88,80: LET N=12 O 
20 LET A=0: LET ADIF=2*PI/N 
ZO FOR I=1 TON : 
Ed 40 PLOT 128,88 O 
| 50 LET X=40*C0S Az LET Y=40x*S1 
NA | 
mE 60 DRAW X,Y, Fl: DRAW X,Y,FI Ea] 


70 LET A=A+ADIF 


Figura 1.9 


Ejercicio 1.11 


La figura 1.10 muestra un dibujo conocido como espiral celta o triskele. Escriba 
un programa que dibuje este tipo de modelo. 


Colores dentro de un mismo bloque 
La utilización de tintas (INK) de diferentes colores en gráficos de alta resolución 


puede producir problemas. Los resultados que se obtienen, aunque calculables, suelen 
ser inesperados. Ejecute el programa del listado 1.14. En.él se puede comprobar la 
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Figura 1.10 


facilidad con que las cosas pueden ir mal cuando se utilizan más de dos colores sin 
un cuidadoso planteamiento previo. 


Listado 1.14 


FAFER 5: INK 73 CLS rd 
FOR 1=0 TO 175 STEF 8 +7 
FLOT 0,l: DRAW 255,0 

NEXT 1 O 
INK O 

CIRCLE 128,88,80 

STOP 


Sin embargo, podemos aprovechar esta dificultad en nuestro beneficio. Podemos 
producir imágenes de color de baja resolución aparentemente complicadas y en rápido 
cambio. Inicialmeñte, imprimimos varios bloques en determinadas posiciones de la 
pantalla por medio de órdenes PRINT. Si a continuación dibujamos líneas que atra- 
viesen estos bloques, se producirá un cambio en el color de los mismos. Esta téc- 
nica es de una velocidad realmente notable, según se puede observar ejecutando el 


programa del listado 1.15. 
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Listado 1.15 
2% 10 INK 7: CLS Na 
| 20 FOR I=1 TO 704 
ZO LET DIST=80: LET I=0: LET-D 


60 FLOT 127,86-DIST: DRAW -DIS 
T,DIST: DRAW DIST,DIST 
70 LET DIST=DIST-D: IF DIST=0 E 
OR DIST=80 THEN LET D=-D 
80 LET I=l+1: 1F 1=8 THEN  LET 
I1=0 NS! 
) 90 60 TO 40 
L l 7 o A A a e = A | " eo | 


| Cy =8 O 
| 40 INK 1 

HE 50 PLOT 120,86+DIST: DRAW DIST | 
MN ¿=DIST: DRAW -DIST,-—DIST O 


Un juego sencillo 


A continuación presentamos un pequeño programa de juegos (listado 1.16) como 
ejemplo final de la utilización de las técnicas descritas en este capítulo. Disponemos 
de un gusano que se puede mover en etapas del tamaño de un bloque cada vez en 
toda la pantalla, horizontal o verticalmente, controlando su movimiento desde el 
teclado. El propósito del juego es conseguir que el gusano se coma el dinero sim- 
bolizado por una £. A medida que el gusano come. va creciendo. Si en algún mo- 
mento la cabeza del gusano se estrella contra los bordes o contra su propio cuerpo, 
el gusano muere. Cada vez que sé alcanzan diez fichas comidas, el gusano vuelve a 
su tamaño original, acompañado por una fanfarria. El juego continúa de igual manera. 

El juego está desarrollado utilizando los métodos modulares estructurados que 
suelen preferir los programadores. Estos métodos ayudan a producir con rapidez un 
programa comprensible y funcionando. En síntesis, el programa está dividido en una 
serie de pequeñas tareas que en conjunto componen el juego completo. Para este 
juego las tareas a realizar son las siguientes: 


Inicializar las variables. 
Preparar el tablero. 
Control del juego. 
Actualización y tanteo. 


UONw»> 


Ahora podemos intentar resolver cada uno de los problemas planteados o, en caso 
necesario, subdividirlos a su vez en otros más pequeños que resulten fáciles de abordar. 
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Por ejemplo, la tarea C se puede subdividir en: 


1. Generación de la moneda a comer. 
2. Utilización del teclado para cambiar la dirección del gusano. 
3. Movimiento del gusano. 


A su vez, la subtarea C.3 se puede expresar como: 


a) Dibujar el gusano. 
b) Si el gusano alcanza el borde o a sí mismo, muere. 
c) Fanfarria. 


Este cuadro no implica un orden predeterminado: por ejemplo, puede darse el caso 
de que convenga realizar la regeneración de la moneda dentro de la parte de pro- 
grama dedicada a la fanfarria. En realidad, estos apartados indican únicamente una 
lista de tareas a realizar que se nos hacen evidentes cuando intentamos resolver un 
problema de mayor cuantía. 

Observe el listado del juego; intente identificar qué tareas se realizan, dónde, en qué 
orden y cuáles de ellas han sido subdivididas. (A lo largo del libro utilizaremos 
variables en letras minúsculas para expresar líneas de programa en que comienzan 
subrutinas. Así se hace el programa más legible, dando una clara idea del algoritmo; 
es una costumbre que aconsejamos.) 

Nótese la utilización de expresiones lógicas (del tipo IF DEAD THEN... por 
ejemplo); consúltese en caso necesario el Manual del Spectrum. Obsérvese también 
que se emplea ATTR y SCREENf para detectar colisiones, tanto por el color del 
carácter como por su contenido. En la figura 1.11 se puede observar el aspecto del 
juego en funcionamiento. 


FPIINTOS 1 FELIMNTOS MHnax. 


o 
+ 
+ 
+ 
+ 
+ 
+ 


HMTIVCE- SUSARDO= 1 


Figura 1.11 
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Listado 1.16 
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1000 DIM R(55): DIM C(55) 
1009 REM Inicializa los punteros 
de rutina y pone la puntuacion 
a cero 

1010 LET fanfare=2000: LET worm:= 

2000: LET key=4000: LET gobble=5 

000: LET status=6000: LET target 

=7000 

1020 BORDER 1: PAFER 7: INK O 
1030 LET HSC=0 

1039 REM Comienzo del juego 

1040 LET SCORE=02 LET WORMS=Z* L, 

ET LEVEL=1 

1048 REM Genera un gusano de 3 5 
egmentos de longitud en fila KR c 
alumna C 

1049 REM F es el puntero del seg 
mento a mover 

1050 LET S=5: LET F=12 LET R=O: 
LET C=INT (RND*32) 

1059 REM Fija las variables de m 
ovimiento para que el gusano vay 
a para abajo 

1060 LET RMOVE=13 LET CMOVE=0* L 
ET H$= " V ”" 

1069 REM Borra la matriz de posi 
ciones del segmento 

1070 FOR I=1 TO 559: LET R(1)=-1: 
NEXT 1 

1080 LET WON=0* LET DEAD=0 

1089 REM PFinta la pantalla con f 
ranjas amarillas 

1090 CLS : FRINT AT 0,05 FAFER 6 
sy 1 PRINT AT 21,05 FAFER 65,4 
1099 REM Imprime la puntuacion 
1100 GO SUB status: 60 SUB targe 
t 

1109 REM Bucle principal del jue 
gos comprueba los controles, mue 
ve el gusano 

1110 GO SUB key: GO SUB worm 
1119 REM Repite el bucle 


O 


O 


(o) 


O) 


O 


E) 


1120 IF NOT DEAD AND NOT WON TH 
EN. GO TO 1110 

1129 REM Si el gusano se come 10 
* genera otro gusano 

1130 IF WON THEN LET LEVEL=LEVE 
L+1: GO SUB fanfare: GO TO 1050 
1139 REM Hace ruido de choque 
1140 IF DEAD THEN FOR I=i TO 10 
s BEEP 0.005, 158: NEXT 1 

1149 REM Genera otro gusano si q 
uedan todavia 

11530 IF DEAD THEN  LET WORMS=WOR 
MS-1:1 IF WORMS<50 THEN GO TO 10 
SO 

1160 FOR I=1 TO S: BEEP 0,.01,0s3 
FRINT AT R(P),C(F)35 FAFER 73" " 
1170 LET P=F+13 1F P>S THEN  LET 
P=] 

1180 NEXT 1 

1189 REM Renueva la puntuacion 
1190 PRINT AT Y,X3 FAFER 73" ": 
GO SUB status 

1199 REM Espera hasta que se apr 
ieta ENTER 

1200 LET I$=CHR$ 18+CHR$ 1+"ENTE 
R PARA EMPEZAR"+CHR$ 18+CHR$ O 
1210 INFUT (I$+" ")3 LINE A 
$ 

1220 GO TO 1040 


2000 REM soniquete 

2009 REM Musica tocada al pasar 
un nivel 

2010 DATA .06,18,.06,19,0.06,21, 
0.135,27,0.06,21,0.2,27 

2019 REM Lee y toca las combinac 
iones de ó notas y duraciones 

2020 RESTORE fanfare: FOR I=1 TO 
6: READ L,T: BEEP L,Ti NEXT 1 

2030 RETURN 


3000 REM gusano 

52008 REM El gusano se mueve colo 
cando el ultimo segmento al prin 
cipio 


Q 


O 


O 


O 


O 


3010 IF R(F)<>-1 THEN FRINT AT 

R(F),C(P)5 FAPER 73" " 

3019 REM Calcula la posicion de 
la cabeza del gusano 

3020 LET R=R+RMOVE: LET C=C+CMOV 

029 REM Comprueba si hay colisi 
on 

ZOO IF Re20 OR Ri1l OR C>x31 OR C 
<0 THEN LET DEAD=1:%* RETURN 

2039 REM Comprueba si hay colisi 
on con otro segmento del gusano 
3040 IF ATTR (R,C)=16 THEN  LET 
DEAD=1: RETURN 

3049 REM Fija una nueva posicion 
de fila y columna del segmento 

3050 LET R(F)=Ri LET C(F)=C 

3059 REM Comprueba sí se ha comi 

do el objeto 

FO60 IF SCREENS (R,C)="£" THEN 

GO SUB gobble 

3069 REM Fone el nuevo segmento 

en pantalla 

3070 FRINT AT R(F),C(F)3 FAFER 2 
5 H$ 

3080 LET PF=PF+13 1F F>S THEN LE 

T F=1 

30790 RETURN 


14m 


4000 REM tecla 


4009 REM Comprueba las teclas ap 
retadas 

4010 LET A$=INKEY$: IF A$="" THE 
N RETURN 

4019 REM Comprueba que las letra 
s son tratadas como minusculas 
4020 IF CODE A$<96 THEN  LET A$= 
CHR$ (CODE A$+32) 

4028 REM El gusano no puede dars 
e la vuelta sobre si mismo 

4030 IF A$="i" AND CMOVE THEN  L 
ET RMOVE=-12 LET CMOVE=0%* LET H$ 
="*"+ RETURN 

4039 REM abajo 


O 


O 


9, 


4040 IF A$="m" AND CMOVE THEN  L 
ET RMOVE=1: LET CMOVE=0% LET H$= 
"y" RETURN 

4049 REM izquierda 

4050 IF A$="3j" AND RMOVE THEN  L 
ET RMOVE=0+* LET CMOVE=-1:2 LET H$ 
<" RETURN 

4059 REM derecha 

4060 IF A$="k" AND RMOVE THEN  L 
ET RMOVE=0: "LET CMOVE=1:* LET H$= 
">": RETURN 

4070 RETURN 


5000 REM engullido 

3009 REM Come el objeto haciendo 
ruidos 

3010 FOR I=2 TO 4 STEF 0.5 

SOz2O BEEP 0,.01,EXF I-102 NEXT 1 
5029 REM Incrementa la puntuacio 
n 

SOJO LET SCORE=SCORE+1: GO SUB s 
tatus 

5039 REM Si el gusano tiene 05 s 
egmentos ganas lina vuelta 

5040 LET S=S+53: 1F S=35 THEN LE 
T WON=1í¿ RETURN 

5049 REM Situa un nuevo objeto e 
n pantalla 

5050 GO SUE target 

5060 RETURN 


6000 REM estado 


6009 REM Si tu puntuacion es max 
ima renueva esta 

6010 IF SCORE>HSC THEN  LET HSC 
=GCORE 

6019 REM Imprime las puntuacione 


5 

6020 FRINT AT 0,05 FAFER 63" P 
UNTOS "¿SCORE," FUNTOS MAX. "¡HS 
E 

60730 FRINT AT 21,05 FAFER 65" 
NIVEL "¿LEVEL," GUSANOS "3WORMS 
6040 RETURN 


45 


Ejercicio 1.12 


Como proyecto final de este capítulo (miniproyecto más bien), intente escribir un 
juego de squash o de ping-pong (¡o ambos!) utilizando gráficos de baja resolución. 
Utilice como pelota un pixel o bloque completo, a su gusto, y controle la o las 
raquetas desde el teclado de la misma manera que se controla el gusano en el juego. 
Transforme parte del programa anterior en subrutinas de su propio programa a su 


conveniencia. 


En este capítulo nos hemos limitado a utilizar la pantalla como una hoja de papel 
fija sobre la que hemos dibujado composiciones gráficas o juegos. Si deseamos pasar 
a dibujar objetos reales, disponiendo de pixels como única herramienta, deberemos 
buscar Órdenes adecuadas que permitan reflejar el mundo real en nuestro mundo de 
pixels. Estudiaremos y desarrollaremos las técnicas necesarias para realizar estos di- 


7000 REM objeto 


7009 REM Escoge un bloque de car 
acter aleatoriamente 

7010 LET X=RND*315 LET Y=RNDx*19+ 
1 

7019 REM Comprueba que no es el 
mismo lugar que el del anterior 
7020 IF X=C AND Y=R THEN GO TO 
target 

7029 REM Comprueba que no esta b 
ajo el gusano 

7030 IF ATTR (Y,X)=146 THEN GO T 
O target 

7040 PRINT AT Y,Xi FAPER 43"£" 
70350 RETURN 


bujos reales en los siguientes capítulos. 


Programas completos 


L 
IL 
TT. 
IV. 
v. 
VE 
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Listado 
Listado 
Listado 
Listado 
Listado 
Listado 


1.1: no requiere datos. 
1.2: no requiere datos. 
1.3: no requiere datos. 
1.4: no requiere datos. 
1.5: no requiere datos. 
1.6: no requiere datos. 


Listado 1.7: no requiere datos. 

Listado 1.8: pulse las teclas que rodean a la “F” para mover el punto en 
cualquier dirección entre las 8 posibles. Pulse “P” para dejar un rastro o pista 
y “Q” para eliminarlo. 

Listado 1.9: no requiere datos. 

Listado 1.10: no requiere datos. 

Listado 1.11: no requiere datos. 

Listado 1.12: no requiere datos. 

Listado 1.13: no requiere datos. 

Listado 1.14: no requiere datos. 

Listado 1.15: no requiere datos. 

Listado 1.16: programa principal y subrutinas “fanfare” (soniquete), “worm” 
(gusano), “key” (tecla), “gobble” (engullido), “status” (estado) y “target” (objeto): 
utilice las teclas “I”, “J”, “K” y “M” para controlar el movimiento del gusano. 
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De coordenadas reales 
a pixels 


Hemos visto que el Spectrum concibe su marco gráfico como una matriz rectan- 
gular de puntos direccionables o pixels. Dicha matriz está organizada en NXPIX 
(= 256) columnas verticales y NYPIX (= 176) filas horizontales. Cada uno de los 
pixels del conjunto de los NXPIX por NYPIX posibles, queda definido por un par 
de números enteros ordenados (I, J), donde queremos indicar el pixel situado en 
la I-ésima columna y en la J-ésima fila; naturalmente 0 < 1 < NXPIX —1y0<J< 
NYPIX — 1: el vector (0, 0) representa el pixel situado en la esquina inferior izquierda 
del papel. El BASIC del Spectrum dispone de varias instrucciones para el manejo 
de la matriz de pixels; la idea es considerarlos como puntos de luz que se pueden 
encender o apagar. Esto permite al operador aproximar líneas, o superficies, por un 
conjunto de puntos de color (los pixels). 

El objetivo de los capítulos siguientes es dirigir al lector a la construcción de un 
paquete de programas gráfico (en 2 y 3 dimensiones) para el Sinclair Spectrum: los 
programas están escritos en BASIC y (salvo pocas excepciones) se basan en un número 
reducido de subrutinas primitivas que serán el objeto de este capítulo. 


Primitivas que trasladan el espacio continuo al marco gráfico 


En general, los gráficos realizados con ordenador representan puntos, líneas, super- 
ficies y volúmenes en espacios euclídeos continuos de dos y tres dimensiones; por 
el contrario, no disponemos de infinitos pixels infinitamente pequeños que se puedan 
asimilar a los puntos del espacio. Por otra parte, la definición de un objeto por un 
conjunto de pares de números discretos no es de mucha utilidad práctica. Necesitamos, 
por tanto, algún sistema que nos permita dibujar las vistas de los objetos en una 
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pantalla gráfica, donde medimos las posiciones en unidades reales: centímetros, kiló- 
metros (¡o incluso años luz!). Nuestro foco de atención será, principalmente, realcionar 
el espacio real de dos dimensiones con la pantalla de pixels. Para ello empezaremos 
considerando, en primer lugar, la representación del espacio de dos dimensiones por 
medio de coordenadas cartesianas. 

Podemos imaginarnos el espacio bidimensional como el plano e esta página ex- 
tendido al infinito en todas direcciones. Empezaremos por elegir un punto fijo del 
plano, al que llamaremos origen de coordenadas. A continuación, trazamos por dicho 
punto una línea recta que se extiende por ambos extremos hacia el infinito; este es el 
eje x. Es aceptado tácitamente el colocar esta línea en posición horizontal. Una vez 
establecido el eje x, trazamos otra línea recta perpendicular a la anterior y que la 
corta en el origen, el eje y; siguiendo el mismo convenio, esta línea estará colocada 
verticalmente. Acto seguido, marcamos una escala a lo largo de cada eje: la unidad 
de distancia no precisa ser la misma sobre ambos, pero normalmente se suele tomar 
así (figura 2.1). Asumiremos también que los valores del eje x son positivos a la de- 
recha del origen y negativos a su izquierda; de forma similar para el eje y considera- 
remos positivos los que estén situados por encima del origen y negativos los que estén 
por debajo. 

Cualquier punto p del espacio queda definido univocamente por medio de sus 
coordenadas (figura 2.1). La coordenada x (representada como X) es la distancia, medida 
sobre el eje horizontal, a la cual una línea perpendicular al eje x que pasa por el 
punto p corta a dicho eje. De una forma similar se define la coordenada y (Y). 
Estos dos valores, denominados par de coordenadas o vector.de dimensión dos, se suelen 
escribir entre paréntesis, ordenados y separados por una coma: (X, Y). Es importante 
el orden en que se colocan ambas coordenadas, primero la coordenada x y luego la y. 


Figura 2.1 


Frecuentemente denominaremos vector a un par de números ordenados. Por otra 
parte, un vector puede definir, también, una dirección en el plano: aquella que es 
paralela a la recta que pasa por el origen y por el punto (X, Y) —pero hablaremos 
con más detenimiento de esto (y de otras muchas cosas como límites y polígonos) 
en el capítulo 3. 

Estamos ya en condiciones de construir las herramientas (las ya mencionadas subru- 
tinas primitivas) que nos permitan trasladar estos conceptos geométricos a la matriz 
rectangular discreta de pixels que constituyen el marco gráfico. 

Por el momento, centraremos nuestra atención en el espacio de dos dimensiones: 
a partir del capítulo 7 extenderemos nuestro territorio de caza a la tercera dimensión. 
En ambos casos, precisamos de un método para representar una superficie rectangular 
del espacio cartesiano bidimensional en el marco gráfico. Por simplificar, considera-' 
remos que esta superficie tiene sus bordes paralelos a los ejes cartesianos x e y. 
Inicialmente, supondremos que el extremo inferior izquierdo del rectángulo a repre- 
sentar se encuentra sobre el origen de coordenadas (0.0, 0.0), siendo, además, su base 
de longitud HORIZ y su altura VERT. Identificamos, en primer lugar, el origen 
con el pixel (0, 0) y a continuación normalizamos los lados del rectángulo, de forma 
que ajuste exactamente en el marco gráfico; evidentemente, este ajuste solamente podrá 
realizarse si los cocientes HORIZ:VERT y NXPIX:NYPIX son iguales (esto es, 256:176). 
Solamente en contadas ocasiones, como se podrá suponer, esta proporción existe, 
y por tanto, definiremos un factor de escala, XYSCALE, que nos coloque el punto 
(HORIZ, VERT), del espacio real, bien sobre el borde superior, bien sobre el borde 
derecho del marco gráfico. Podemos considerar este rectángulo como una ventana 
sobre el espacio cartesiano; si liberamos a esta ventana del origen de coordenadas 
y, manteniendo sus bordes paralelos a los ejes, le permitimos moverse por todo el 
plano, podremos ver cualquier zona del espacio cartesiano. Como regla general, HORIZ 
y VERT estarán en proporción 3 a 2 aproximadamente. 

Como indicamos, permitiremos al origen de coordenadas moverse de su posición ini- 
cial en el extremo inferior izquierdo del marco. Su posición relativa al origen inicial 
se guardará en las variables XORIG e YORIG, las componentes x e y respectiva- 
mente; inicialmente (XORIG, YORIG), tiene el valor (0.0, 0.0). Por tanto, un punto 
del espacio cartesiano de coordenadas (XPT, YPT), donde XPT e YPT son números 
reales, viene representado por el pixel cuya coordenada horizontal es INT ((XORIG + 
+ XPT)*XYSCALE + 0.5) y cuya coordenada vertical es, similarmente, INT 
(YORIG + YPT)*XYSCALE + 0.5); (INT es la función del BASIC que trunca la parte 
decimal de un número real y nos devuelve su parte entera). Ambas componentes 
son calculadas por las funciones FN X y FN Y (véase listado 2.2). A lo largo del 
trazado de una figura, debemos considerar la existencia de una “pluma de gráficos” 
que en realidad estará constituida por un par de números enteros, desplazándose por 
el marco gráfico; al comenzar la ejecución del dibujo estará situada en el pixel (0,0) 
y su posición, en cualquier instante, será el pixel (XPEN, YPEN). Las constantes 
NXPIX y NYPIX.,* y las variables XYSCALE, XPEN, YPEN, XORIG e YORIG, 
deben ser accesibles por cualquiera de las subrutinas que siguen; por tanto estos nom- 
bres serán reservados y no podrán emplearse para otras variables. Estas subrutinas 
fueron diseñadas específicamente para el Spectrum; de todas formas, comentaremos 
las ideas básicas que permitan construir subrutinas similares para otros equipos. 
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Como primera medida, si empleamos otra máquina, deberemos cambiar NXPIX y 
NYPIX a los valores correspondientes de la nueva. 

Nuestra primera subrutina “comienzo” inicializa las variables requeridas y preparada 
la pantalla para el dibujo. El listado 2.1 es una posible implementación de la subru- 
tina “comienzo” para el Spectrum. 


Listado 2.1 


9700 REM comienzo O 

9701 REM Datos de entrada HORIZ, 

VERT ] 

97079 REM. Datos de salida NXFIX,N pS 

YFIX, XORIG, YORIG, XYSCALE, XFEN, YF 

EN 

9710 LET XORIG=0% LET YORIG=0 : 

9720 LET XFEN=0% LET YFEN=0 

9730 LET NXFIX=2356: LET NYFIX="17 

6 

9740 LET XYSCALE=NXFIX/HORIZ+ LE 

T YSCALE=SNYFIX/VERT 

9730 IF XYSCALE:YSCALE THEN  LET 
XYSCALE=YSCALE 

9760 RETURN 


Esta subrutina podría extenderse con la introducción del color; para ello, introdu- 
cimos dos nuevas variables COLPAP y COLINK (enteras en el rango 0 a 7) para 
el color del papel y de la tinta respectivamente. Es necesario introducir la siguiente 
sentencia: 


9725 PAPER COLPAP : INK COLINK 


Si necesitáramos escribir esta subrutina para un microordenador distinto, todo lo 
que necesitaríamos hacer sería cambiar las instrucciones gráficas del BASIC del Spec- 
trum por las correspondientes de la nueva máquina. La mayoría de las restantes 
subrutinas de este libro son independientes de la estructura del ordenador. 

En “comienzo” y en muchas otras que veremos después, es necesario transformar 
las coordenadas x e y de un punto en su pixel equivalente, de forma que introducimos 
dos funciones FX y FY en el listado 2.2. 

La siguiente subrutina primitiva (listado 2.3) es “fijaorigen”, que nos permite tras- 
ladar el origen de coordenadas una distancia YMOVE en dirección horizontal e 
YMOVE en vertical (distancias medidas en la escala del sistema de coordenadas), 
corrigiendo el vector (XORIG, YORIG) a sus valores correspondientes. Después de 


Si —= 


su ejecución, la pluma de dibujo se habrá desplazado al pixel correspondiente al 
nuevo origen. 


Listado 2.2 


O 9630 DEF FN X(Z)3=INT ((XORIG+Z)% 
| XYSCALE+O,. 3) 
| 9660 DEF FN Y(Z3=INT ((YORIG+Z)% 
O XYSCALE+O,. 53) 


Listado 2.3 


9600 REM fijaorigen 
9601 REM Datos de entrada XORIG, 
YORTIG, XMOVE, YMOVE 
9609 REM Datos de salida XORIG,Y 
ORIG, XFEN, YFEN 
9610 LET XORIG=XORIG+XMOVE: LET 
YORIG=YORIG+YMOVE 
9620 LET XFEN=FN Xx (0) 
96730 LET YFEN=FN Y (0) 

O 9640 RETURN 


Con el fin de poder dibujar líneas rectas, introduciremos dos nuevas subrutinas: 
“trazapuntos” y “trazalíneas”. La primera se encargará de llevar la pluma al pixel 
correspondiente al punto (en el espacio de coordenadas) donde comienza la línea; 
la segunda se ocupará de dibujar el segmento moviendo la pluma desde su posición 
presente (definida por una llamada previa a “fijaorigen”, “trazapuntos” o “trazalíneas”) 
hasta el pixel correspondiente al punto donde acaba la línea. Los listados 2.4 y 2.5 
corresponden a las subrutinas “trazapuntos” y “trazalíneas” (diseñadas específicamente 
para el Spectrum). La subrutina “trazalíneas” contiene algunas sentencias que iniciali- 
zan instrucciones que son propias del BASIC-Spectrum para el trazado de rectas 
(mientras que PLOT trabaja sobre valores absolutos, DRAW maneja valores rela- 
tivos); por el contrario, la subrutina “trazapuntos” es independiente de la máquina. 
Si desea implementar estas subrutinas en otro microordenador, sólo necesitará cam- 
biar la subrutina “trazalíneas”. 

Prácticamente todas las máquinas, salvo las más elementales, permiten almacenar 
estas subrutinas gráficas o sus equivalentes (y muchas más cuando el nivel de co- 
nocimiento aumenta) en un fichero de librería o en un dispositivo de memoria ma- 
siva, con lo que no será necesario teclearlas explícitamente en cada nuevo programa. 
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Listado 2.4 


9500 REM trazapuntos 
9501 REM Datos de entrada XFT,YF 


Al « 
9509 REM Datos de salida XFEN,YF 
EN 


9510 LET XFEN=FN X(XFT) 
9520 LET YFEN=FN Y(YFT) 
933 RETURN 


Listado 2.5 


9400 REM recta 
9401 REM Datos de entrada XFT, YF 
T, XFEN, YFEN 
9402 REM Datos de salida XFEN,YF 
EN 
9410 LET NXFEN=FN X(XFT) 
z 9420 LET NYFEN=FN Y (YET) 
9430 FLOT XFEN, YFEN 
E 9440 DRAW NXFEN-=XFEN, NYFEN-YFEN 
O 9450 LET XFEN=NXFEN: LET YRFEN=NY U 
FEN 
9460 RETURN 


NN 


L 


En el caso del Spectrum, podemos guardarlas como ficheros en cassettes de audio 
(y añadirlas al programa con la instrucción MERGE cuando las necesitemos). En 
el cassette que se acompaña con este libro encontrará estas subrutinas incluidas en 
la librería “rutl”. 


Ejemplo 2.1 


Identifique un rectángulo en el espacio cartesiano, de tamaño 30 x 20 unidades 
arbitrarias, con el marco gráfico del Spectrum. A continuación dibuje un cuadrado 
de 15 unidades de lado, centrado en el rectángulo (figura 2.2a). 

Para centrar el cuadrado, ponemos el origen en (15.0, 10.0), y definimos las es- 
quinas del cuadrado por los puntos (+7,5, +7.5). Véase el listado 2.6. 

Un punto importante a destacar es el orden en que se unen los vértices. Si inter- 
cambiamos, por ejemplo, las coordenadas de las esquinas segunda y tercera del cua- 
drado, la figura resultante sería la 2.2b en lugar de la 2.2a como se deseaba. 


> 


Listado 2.6 


100 REM dibujando un cuadrado 

109 REM Fija los identificadore 
s de las rutinas graficas 

110 LET start=97001 LET setorig 
in=2600: LET moveto=95300% LET 11 
neto=9400 

120 LET HORIZ=30% LET VERT=20 

1730 60 SUB start 

140 LET XMOVE=HORIZ*.5%: LET YMO 
VESVERT*. 3 

150 60 SUB setorigin 

139 REM Une las esquinas del cu 
adrado en orden 

160 LET XFT=7.53 LET YFT=7.5: 6 
O SUBE moveto 

170 LET XFT=-7.5: LET YFT=7,5s 


(60 SUB lineto 


180 LET XPT=-7,.5: LET YPT=-7,0s 
GO SUB lineto 

190 LET XFT=7.%9: LET YFT=-"-7,5s5 
GO SUB lineto 

200 LET XPT=7.531 LET YPT=7,5:1 G 
O SUB lineto 

210 STOP 


(b) 


Figura 2.2 


A continuación escribiremos una subrutina primitiva a.la que denominaremos 
“polígono” que emplea la instrucción del Spectrum para dibujar rectas. Su objetivo 
será el trazado de polígonos. Para su ejecución, deberemos proporcionarle los NPOL 
vértices del polígono en las variables X e Y (coordenadas x e y de cada uno de los 
puntos, habiendo definido X e Y como vectores de dimensión NPOL). También se 
incluye un programa principal de ejemplo que llama a esta subrutina (listado 2.7). 


Listado 2.7 


100 REM programa principal/ lla 
ma subrutina poligono 

110 LET start=9700: LET setorig 
in=29600: LET moveto=93001: LET li 
neto=2400%* LET polygon=300 

120 LET HORIZ=230% LET VERT=20 

130 GO SUB start 

140 LET XMOVE=HORIZ*,. 5% LET YMO 
VESVERT. 3 

130 60 SUE setorigin 

139 REM Lee los vertices del po 
ligono 

160 DIM X(50): DIM Y(50) 

170 INFUT "TECLEA EL. NUMERO DE 
VERTICES "y NFOL. 

180 FOR I=1 TO NFOL 

170. INPUT CUXC ESTRA 10) MUERA 
LANCES MRE IA EY CIA 

200 NEXT 1 

210 60 SUB polygon 

220 STOF O 


200 REM poligono 

301 REM Datos de entrada NFOL,X 
CNEA 

310 LET XFT=X(NFOL): LET YFT=Y( 
NFOL): GO SUE moveto 

319 REM Une los vertices del po 
ligono en orden 

320 FOR l=1 TO NFOL 

330 LET XFT=X(1)2 LET YFT=Y(1): 
GO SUB lineto 

240 NEXT 1 

350 RETURN 
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Ejercicio 2.1 


Si empleamos un Spectrum, podemos dibujar gráficos con distintos colores. Pero 
antes de realizar el dibujo tenemos que definir el color mediante la instrucción INK. 
Escriba una subrutina “poncolor” con un parámetro entero COLINK que realice esta 
tarea. 


Ejercicio 2.2 


En todas las subrutinas anteriores, la escala del dibujo (XYSCALE) se fija una 
vez a un determinado valor y no se cambia, siendo igual para ambas coordenadas. 
No hay necesidad de seguir este procedimiento; escriba una subrutina “factor” que 
cambie la escala horizontal en FX y la vertical en FY. Naturalmente, tendremos 
que definir dos factores de escala en vez de uno (XSCALE e YSCALE); y también 
habremos de corregir las subrutinas “comienzo”, “fijaorigen”, “trazapuntos”, “traza- 


líneas” (véase también el capítulo 6). 


Ejercicio 2.3 


No hay ninguna razón por la que los ejes x e y estén orientados horizontal 
y verticalmente. Es más, no tienen por qué ser perpendiculares uno al otro. Experi- 
mente un poco con estas ideas y estudie las modificaciones a realizar en cada una 


” « 


de las subrutinas gráficas: “comienzo”, “trazapuntos”, etc. 


Ejemplo 2.2 


CalComp es uno de los primeros (y más populares) paquetes de programas grá- 
ficos. Contiene un conjunto de subrutinas para trazar ejes coordenados, calcular las 
escalas de éstos, construcción de gráficos, etc. Todas las subrutinas de CalComp se 
basan en la denominada “plot” (no tiene nada que ver con la instrucción PLOT del 
Spectrum) cuyo objetivo es el trazado de rectas; “plot” emplea tres parámetros: dos 
de ellos reales XPT e YPT, que se corresponden con las coordenadas de un punto 
del espacio, y un entero MOVE que contiene información sobre el movimiento de 
la pluma gráfica. MOVE puede tomar los valores +2 Ó +3. Esta subrutina puede 
sustituir por sí sola a nuestras “fijaorigen”, “trazapuntos” y “trazalíneas”. Si MOVE 
es negativo, el origen de coordenadas se traslada al punto (XPT, YPT) del anterior 
sistema coordenado (“fijaorigen”). Cuando el valor absoluto de MOVE es 3 la pluma 
gráfica se mueve sin dibujar (“trazapuntos”), y, por último, cuando ABS(MOVE) es 
2, el movimiento se realiza trazando una recta en la pantalla (“trazalíneas”). 

Aunque CalComp en su conjunto es demasiado complejo para intentar su ela- 
boración completa, podemos implementar la subrutina “plot” y emplearla en lugar 
de “fijaorigen”, “trazapuntos” y “trazalíneas” como el resto de las subrutinas men- 
cionadas en este capítulo —véase el listado 2.8. 
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Listado 2.8 


7800 REM plot/CalComp 

9801 REM ENTRADA ¿XFT, YET, XFEN 
y YFEN, XORIG, YORIG, MODE . 

280% REM SALIDA ¿XFEN, YFEN, XOR 
16, YORIG 

39810 LET NYFEN = FN XC(XFT) 

9820 LET NYFEN = FN Y(YET) 

9830 1F ABS (MODE) = 2 THEN FLO 
T OXFEN, YFEN: DRAW NXFEN-XFEN, NYF 

EN-YFEN 

9840 LET XFEN = NXFEN: LET YFEN 
= NYFEN 

9830 IF MODE < Ó THEN  LET XORIG 
= XORIG + XFT2 LET YORIG = YOR 
16 + YET 

9860 RETURN 


Como demostración de lo que puede hacerse con estas subrutinas gráficas, di- 
bujaremos algunos modelos sencillos. Puede haber alguien que piense que la cons- 
trucción de modelos geométricos es una forma frívola de matar el tiempo. Antes 
al contrario, consideramos que es uno de los métodos más didácticos para la com- 
prensión de las técnicas de dibujo realizado con ordenador. A menudo, los temas 
geométricos que parecen realizados con el auxilio de subrutinas muy complejas son, 
en realidad, el resultado de programas muy elementales. Como la construcción de 
estos programas se puede realizar en poco tiempo, el efecto sobre el principiante 
es una inyección de moral y le da una mayor confianza en este campo. Pero, además, 
hay que tener en cuenta que los temas geométricos se emplean cuando se desea 
atraer la atención sobre un determinado artículo, y así se colocan frecuentemente 
en las portadas de libros, folletos de propaganda, etc. Los modelos geométricos son 
una forma agradable de introducir algunos de los conceptos en los que se basa el 
dibujo con ordenador. El siguiente programa, por ejemplo, resalta el importante papel 
que desempeñan las funciones trigonométricas (seno y coseno) y la medición de án- 
gulos en radianes. Recuérdese que r radianes son equivalentes a 180 grados sexagesi- 
males. 


Ejemplo 2.3 
La figura 2.3, un diseño muy popular por cierto, se construye uniendo cada vér- 


tice de un polígono regular de N lados (un N-gono) con todos los restantes. N es 
menor o igual que 30. 
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Figura 2.3 


Colocamos el origen en el centro del dibujo, y todos los vértices sobre una cir- 
cunferencia de radio unidad: los valores asignados a HORIZ y VERT (3, 2.1) se 
han escogido para que el gráfico presente un tamaño y proporción apropiados en 
la pantalla. Si uno de los vértices está sobre el eje x (el horizontal), entonces las 
coordenadas de todos ellos vienen dadas por la expresión: (COS (ALPHA), SIN 
(ALPHA), donde ALPHA es el ángulo 2xI/N e I toma los valores 1, 2, 3, ..., N. 
Por primera vez nos encontramos con una serie de puntos cuyas coordenadas son 
calculadas en lugar de introducidas por el teclado, como en el listado 2.6. Más aún, 
como el programa las emplea frecuentemente, parece lógico el calcularlas una sola 
vez y almacenarlas en vectores para su uso posterior. Obsérvese en el listado 2.9, 
que si 1 <I<J< WN, entonces el vértice J-ésimo no se une al I-ésimo, ya que el 
segmento ya ha sido trazado en el sentido opuesto. 


Listado 2.9 
100 REM 
poligono 


110 LET 
in=9600+ 


uniendo vertices de un 
regular de N lados 


start=9700: LET setorig 
LET moveto=9500:+ LET 1i 


neto=94004* LET clip=8400 


120 LET 


HORIZ=2384 LET VERT=2,1 


130 60 SUE start 


140 LET 


XMOVE=HORIZ*O0. 3: LET YM 
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OVE=VERT+*0O. 3 ES 
150 GO SUE setorigin 

O 160 DIM X(20):2 DIM Y (30) O 
169 REM Fija los vertices del p 

oligono regular en las matrices ' 


¡05% Xx e Y ; No 
170 INFUT "TECLEA EL. VALOR DE ON 
| “EN qe 
O 180 LET ALPHA=0% LET ADIF=2xF1/ ES 
N ¿ | 
O 190 FOR I=1 TON AN 
200 LET X(1)=C0S ALFHA: LET YCI O | 
)J=SIN ALFHA | 
O 210 LET ALFHA=ALFHA+ADIF O 
220 NEXT 1 E 
229 REM Une el punto 1 al punto 


O O AN $ 
230 FOR I=1 TO N-1 A 

240 FOR J=1I+1 TO N 

O 250 LET XFT=X(1)3 LET YFT=Y(1)5 +7 

| 60 SUE moveto 

260 LET XFT=X(J)3 LET YPT=Y(J):% 


25 60 SUB lineto 

270 NEXT J 

280 NEXT 1 
O 290 STOF Ñ 


Se deben hacer dos puntualizaciones a la vista del ejemplo anterior: la primera 
trata sobre la resolución. Como el marco gráfico está constituido por una matriz dis- 
creta, las líneas rectas tienen que ser aproximadas por una sucesión de pixels. Por 
desgracia, la resolución del Spectrum, análogamente a la mayoría de los sistemas 
gráficos de microordenadores, es baja (es decir, NXPIX y NYPIX son algunos cientos) 
y las líneas aparecen dentadas; esto es cierto incluso para los sistemas gráficos de 
más alta resolución (como los terminales gráficos empleados en microfilmación), pero 
el tamaño del pixel es tan pequeño que las líneas aparecen como trazos continuos. 

El segundo caso interesante se presenta cuando N es grande, entonces el polígono 
se aproxima a un círculo. Podemos desarrollar esta idea para escribir la subrutina 
“círculo1” (listado 2.10a), que dibuja un círculo de radio R con centro en (XCENT, 
YCENT) y cuya apariencia es similar a la figura 2.4. Nótese que los ángulos se miden 
en radianes; de forma que el incremento angular es 3/((R+*XYSCALE); se ha elegido 
este valor, dependiente del radio, como solución de compromiso entre el tiempo de 
cálculo y aproximación al círculo geométrico. Como las coordenadas de los vértices 
no se necesitan nada más que una vez, no es necesario almacenarlas. De nuevo se 
evidencia la limitada resolución de la pantalla al observar la circunferencia terminada. 
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Figura 2.4 


Listado 2.104 


Oo 500 REM circulol O 
| oli REM Datos de entrada XCENT, ú 
YCENT, KR, XYSCALE 

Ol 310 LET XMOVE=XCENT: LET YMOVE= '0) 
YCENT: GO SUE 'setorigin 

320 LET ADIF=3/(R*XYSCAL.E) 


O 330-LET XPT=R: LET YPT=0: GO SU C 

Bo moveto 5 

339 REM Calcula y une los punto ] 
ex s (XPT,YPT) del circulo O 

| 340 FOR A=ADIF. TO 2xFI STEP AD 
E A 
ea 2350 LET XPT=R*COS Ar LET YFT=Rx* O 

| SIN Az GO SUB lineto 
O 260 NEXT A E 


370 RETURN 30 


Como vimos anteriormente, el Spectrum tiene una instrución BASIC (CIRCLE), 
que nos permité el trazado de un círculo. Así que la aprovecharemos en la subrutina 
primitiva “círculo2” (listado 2.10b) para el dibujo de círculos; evidentemente, es mucho 
más rápida y de mayor precisión que “círculo1”. 
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Listado 2.10b 


) 400 REM circulo O ] 
401 REM Datos de entrada XCENT, | 
YCENT,R, XYSCALE . | 
O 410 CIRCLE FN X(XCENT),FN Y(YCE Q- 
NT), RXXYSCALE | 
O 420 RETURN ee 


Cuando usemos alguna subrutina, debemos estar prevenidos contra los llamados 
efectos colaterales que se pueden producir; por ejemplo, ¿cambia la subrutina el origen 
de coordenadas o la posición de la pluma? En el caso de la subrutina 2.10a, ambos 
puntos varían su posición, mientras que la correspondiente al listado 2.10b los deja 
en la misma posición en que estaban antes de su ejecución. Es conveniente por tanto 
la siguiente sentencia a la subrutina “círculo1”: 


370 LET XMOVE = —XCENT : LET YMOVE = —YCENT: 
GO SUB setorigin : RETURN 


Ejercicio 2.4 


Escriba una subrutina que dibuje una elipse cuyo eje mayor mida A unidades 
(horizontal) y el eje menor B unidades (vertical). Tenga en cuenta que las coorde- 
nadas de un punto de la elipse son (A cos a, B sen a) donde 0 < a <2x. Sin em- 
bargo, a diferencia del círculo, 4 no es el ángulo que forman el eje x y la recta que 
une el punto con el origen; es simplemente un parámetro descriptivo (y útil). 

Incluya esta subrutina en un programa que dibuje un diagrama similar al de la 
figura 2.5. Hay dos puntos a destacar: 1) no es necesario que Á sea mayor que B; 
y 2) observe la ilusión óptica de la presencia de dos diagonales blancas. En la 
figura 2.3 se presenta otra ilusión —unos círculos oscuros concéntricos. El estudio 
de las ilusiones ópticas es fascinante y es una fuente inagotable de ideas para mo- 
delos geométricos. Este ejercicio se introdujo porque abre el camino a la técnica 
general de trazado de curvas (capítulos 3 y 6). 


Ejemplo 2.4 


Como desarrollo de esta idea, el siguiente paso es la construcción de una espiral. 
De nuevo la forma general de la curva alrededor del origen es (R cos a, R sen a), 
pero ahora a varía entre los ángulos $ y [| + 2Nx, donde f (el parámetro BETA) 
es el ángulo inicial que forma la normal a la espiral con la parte positiva del eje x, 
y N es el número de vueltas que describe la espiral alrededor del origen. La di- 
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Figura 2.5 


ferencia radica en que el radio R no es constante, sino que varía con el valor de a: si 
RMAX es el radio máximo de la espiral entonces R. viene dado por la fórmula: 


R = RMAX(a — f)/2NT 


Esta subrutina, que dibuja la espiral centrada en (XCENT, YCENT), no origina 
ningún efecto colateral, ya que devolveremos el origen de coordenadas a su anterior 
posición antes de terminar su ejecución. 


Ejercicio 2.5 


El listado 2.11a produce un diagrama similar a la figura 2.6a (con XCENT = 
= (, YCENT = 0, N = 4, BETA = 1 y RMAX = 3). ¿Qué ocuriría si a RMAX le 
damos el valor —3? Utilice la subrutina en un programa que genere la figura 2.6c. 
Adviértase, de nuevo, la ilusión óptica que aparece cuando el observador mueve 
su cabeza en círculos frente al diagrama, manteniendo la dirección horizontal (y por 


consiguiente la vertical) paralela a la original. ¡Las espirales parecen girar alrededor 
del centro! 


Listado 2.11a 


eN ZOO REM espirali 'O 
301 REM Datos de entrada XCENT, 
YCENT, RMAX, N, BETA 


r a nn il E sá Fs mo — > A + > E na ” > 
| O 
| 310 LET XMOVE=XCENT+* LET YMOVE:= 1 E 


O 
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YCENT: GO SUB setorigin 
320 LET ADIF=FI1/50: LET ALFHA=E 


| 
| 

2 ETA ds 
| 330 LET RDIF=RMAX/(N*100) 
339 REM Calcula y une los punto 

E s (XFT,YFT) de la espiral 0) 
740 FOR R=RDIF. TO RMAX STEF RD 

2 IF 

Ds 750 LET_ XFT=R*COS ALPHA: LET YP 


TER*SIN ALPHA: 60 SUB lineto 
e: 760 LET ALFHA=ALFHA+ADIF 
O 370 NEXT R 
280 LET XMOVE=-XCENT+ LET YMOVE 
ES =-YCENT+ GO0' SUB setorigin 
Y 790 RETURN 


ada 2 


Ejemplo 2.5 


Las espirales han sido usadas como motivo artístico o de decoración durante miles 
de años; sin embargo, la mayoría de las antiguas no eran verdaderas espirales, sino 
que consistían en varios semicírculos conectados. El listado 2.11b (una subrutina 
cuyos parámetros son RMAX, N y SIGN, la dirección de giro, que puede tomar 
como valores +1) nos permite dibujar espirales semicirculares por medio de la ins- 
trucción DRAW, y además es mucho más eficiente que el método del listado 2.1la, 
aunque este último es más preciso (como resultado de la subrutina 2.11b, véase 
la figura 2.6b). 


Listado 2.11b 


A S 7 a | 
3% 300 REM espiral celtica 
301 REM Datos de entrada XCENT, 
YCENT,RMAX, N, SIGN 
O 310 LET XMOVE=XCENT:* LET YMOVE:== (2) 
YCENT: GO SUE setorigin 
20 FLOT XFEN, YFEN 


O! 330 LET R=O01 LET RDIF=RKMAX/ (N*2 € 
3 LET S=1 | 
339 REM Construye la espiral us ] | 

O | ando DRAW para producir una seri ' O 
) e de semicirculos | 

$1 340 FOR I=1 TO N*2 


2390 LET R=R+RDIF: LET OXFIX=5*R% 

XYSCALE 

360 DRAW XFIX,0, SIGN*FI O 
270 LET S=-S 

380 NEXT 1 

390 RETURN 


£ a ] an l f ¿ / Epa E ", Al 
¡ e ) | | ¡ l 4 o, 7 al ] ] | ] 


== 


(6 


ue 0 , / FE 
RD 12 


Figura 2.6 


Ejercicio 2.6 


Siga la lógica del listado 2.6b, y extiéndalo de forma que la normal a la curva 
original no esté sobre el eje x, sino que forme un ángulo BETA con él. En la fi- 
gura 1.10 hay un ejemplo de triskele, que se compone de varios tercios de circun- 
ferencia conectados. Experimente en la construcción de éstos y variaciones sobre este 
tema, tales como cuartos de circulo, etc. 
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Ejemplo 2.6 


Escriba una subrutina (listado 2.12) que dibuje diagramas similares a la figura 2.7. 

Aquí se presenta el concepto de envolvente. En vez de dibujar una curva por 
medio de una serie de pequeños trazos rectilíneos (como la circunferencia del lis- 
tado 2.9), utilizamos una serie de rectas que son tangentes a la curva. Por ejemplo, 
la figura muestra cuatro hipérbolas rectangulares situadas en los cuadrantes del plano. 

Tomamos N puntos en cada uno de los cuatro brazos (de longitud unitaria) 
que dividen el plano en los cuatro cuadrantes. Los 4N puntos son por tanto (+1/N, 
0.0) y (0.0, +I/N) donde I = 1, 2,..., N. 


Figura 2.7 
Listado 2.12 
q | 
E 100 REM programa principal 
| (ejemplo de envolvente 
) 
1] 110 LET start=9700: LET setorig GQ 


| in=9600: LET moveto=9300: LET 1i 
| 300. neto=9400 Ñ 
O; 120 LET HORIZ=3: LET VERT=2,1 O 
130 GO SUE start 
| o! 140 LET XMOVE=HORIZ*0,.53: LET YM 
YAA OVE=VERT*O. 5 


| 150 GO SUB setorigin 


O! 159 REM Dibuja las escalas de 1 
e os ejes en el area de graficos O 
l 160 INFUT "TECLEA N "¿N 
SA 170 LET XFT= lí LET YFT= O: GO 
SUB moveto ] O 
| 180 LET XFT=-13 LET YFT= O: GO 
O SUE lineto O 
: 190 LET XFT= Os LET YFT= dl: GO EE 
| SUB lineto : 
O! 200 LET XFT= O: LET YFT=-11 60 a 
SUB lineto 
E 208 REM Froduce N grupos de 4 p 
O.) untos, cada uno en un eje O 
209 REM Une los puntos de cada 
1 grupo por orden 
] 210 FOR l=1 TO N LO 
: 220 LET IDi=I/Nw“ LET 1D2=(N+1-1 
o! )/N e 
| 230 LET XFT= IDii: LET YFT= O: id 
| GO SUE moveto 
4 240 LET XFT= Or LET YFT= IDZ: > 
| GO SUB lineto la 
2590 LET XFT=-ID13 LET YFT= Os 
7 GO SUB lineto 
260 LET XFT= Or LET YFT=-ID25 
GO SUB lineto 
$e) 270 LET XFT= IDii LET YFT= Os 
GO SUBE lineto 
e 280 NEXT 1 
O 290 STOP 


Ejercicio 2.7 


Generalice este subprograma de forma que haya un número de brazos variable, 
M, saliendo del origen y dividiendo el plano en segmentos iguales. 


Ejercicio 2.8 

Dibuje un diagrama similar al de la figura 2.8; la subrutina tendrá un parámetro 
entero N. Calculará 4N puntos (P(I): I = 1, 2, .., 4N) sobre el perímetro de un 
cuadrado, de lado unidad, empezando en un vértice. Hay un punto en cada vértice, 
y la distancia entre los puntos consecutivos es 1/N. A continuación se unen por 
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medio de segmentos los pares de puntos según las siguiente regla: P(I) se une a P(J) 
si J — I (módulo 4N) pertenece a la secuencia 1, 1 + 2, 1 +2 +3, ... Por ejemplo, 
si N = 10 entonces P(20) se unirá a P(21), P(23), P(26), P(30), P(35), P(1), P(8) y 
P(16). Si se dibuja el cuadrado exterior, no es necesario dibujar los segmentos que 
unan pares de puntos sobre el mismo lado. Siguiendo el ejemplo anterior, P(20) 
es un vértice, así que nos podremos ahorrar los segmentos correspondientes a P(16), 
P(21), P(23), P(26) y P(30). 


ge 
Gn 


Figura 2.8 


Ejemplo 2.7 


Sea un programa que imite a un espirógrafo, que produzca diagramas similares 
al de la figura 2.9. 

Un espirógrafo consiste en un disco dentado que engrana sobre la parte interna 
de otra corona circular, la cual se coloca sobre un papel. Sean A y B dos números 
enteros correspondientes a los radios de la circunferencia interior de la corona y ex- 
terior del disco. El disco siempre está en contacto con la corona. A una distancia D 
(entera) del centro del disco hay un pequeño agujero en el cual se coloca un lápiz. 
Si se hace girar el disco de forma que ambas piezas estén siempre en contacto, el 
engranaje evita que haya deslizamiento. En su movimiento el lápiz dibujará una fi- 
gura cerrada, ya que en algún momento volveremos a la posición original. 

Inicialmente supondremos que el centro del disco y el agujero están sobre la parte 
positiva del eje x, siendo el origen de coordenadas el centro de la corona circular. 
Para imitar al espirógrafo, tenemos que determinar las coordenadas de un punto que 
esté sobre el trazo del lápiz. Sea au el ángulo que forman el eje x y la recta que 
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Figura 2.9 


une el origen con el punto de contacto entre el disco y la corona. El punto de 
contacto será por tanto (A cos a, A sen xa) y el centro del disco tendrá como coor- 
denadas ((A — B) cos a, (A — B) sen a). Si llamamos f al ángulo formado por la 
recta que une el centro del disco con el agujero y el eje x, entonces las coordenadas 
del agujero serán: 


((A — B) cos 4 + Dcos f, (A — B) sen a + D sen $f) 


El punto de contacto entre el disco y la corona se habrá movido una distancia 
Aa alrededor de la corona, y una distancia — Bf alrededor del disco (el signo menos 
se debe a que a y ff tienen orientaciones contrarias). Como el disco rueda sin des- 
lizamiento, ambas distancias deberán ser iguales, y nos resulta la siguiente ecuación: 
PB = —(A/B)a. El lápiz volverá a su posición original cuando tanto a como f$ sean 
múltiplos de 27. Cuando a = 2NX, $ tendrá el valor — N(A/B)2x: por tanto el lápiz 
regresa a su posición inicial por primera vez cuando N(A/B) sea un número entero 
por vez primera; o sea, cuando N sea igual a B dividido por el máximo común 
divisor de A y B. La subrutina “Euclides” (listado 2.13) emplea el algoritmo de Eucli- 
des para el cálculo del máximo común divisor (variable HCF del programa) de dos 
números naturales A y B. 

Esta función se usa por la subrutina “espirógrafo” (listado 2.13), que calcula el 
valor de N y varía a (ALPHA) entre 0 y 2Nx con incrementos de x/100; para 
cada a, calculamos el valor de f (BETA) y pintamos el punto correspondiente al 
agujero. La figura 2.9 fue dibujada por la subrutina “espirógrafo” con los siguientes 
valores: A = 12, B =7 y D = 5. Los parámetros HORIZ y VERT deben elegirse de 
forma que el dibujo quepa dentro de la pantalla, en este ejemplo tomamos HORIZ = 
= 30 y VERT = 20. 
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Listado 2.13 


200 
01 


AE 


REM Euclides 
REM Datos de entrada A,E 
REM Datos de salida Maximú 


'O comun divisor 


210 
220 
CF=A 
230 
S 240 
'Q =) | 250 


pr 


| 230 
: 260 
GO 
270 
; 60 
| 280 
| 290 


300 

201 

O 310 
ETA 

4 ZO 
O LET 
| 330 

| o su 
1 379 
s de 
40 
SO 
360 
Loa! 370 
na EET 
280 

O BET 
LIS 390 
4200 

'0) 410 


O 
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LET I=A: LET HCF=E 
IF AZB THEN LET 1I=BEx LET H 


LET J=I-1INT (1/HCF)*HCF 
1F J=0 THEN RETURN 
-LET 1I=HCF:* LET HCF=J1 GO TO 


LET XFT= O: LET YFT=-1D25 
SUBE lineto 

LET XFT= IDia LET YFT= Os 
SUB lineto 

NEXT 1 

STOP 


REM espirogratfo 
REM Datos de entrada A,B,D 
LET RABR=A-Es LET ALFHA=0* L 


DIFR=F1/530%* LET AORK=A/B 

¿50 SUB Euclid: LET N=R/HCF: 
NO=1 00% 

LET XFT=RAB+D: LET YFT=03: 6 
E moveto 

REM Calcula y une los punto 
la espiral 

FOR I=1 TO NO 

LET ALFHA=ALFHA+ADIF 

LET BETA=ALFHA*ADE 

LET XFT=RABx*COS ALFHA+D*COS 
A 

LET YET=RAR*SIN ALFHA-D*SIN 
A 

GO SUB lineto 

NEXT 1 

RETURN 


Este ejemplo demuestra que el trazado de modelos geométricos no es tan sencillo 
como aparenta. Incluso una figura tan sencilla como la de la figura 2.8 precisa de 
la ayuda de Euclides. Conforme nos adentremos en el territorio de las técnicas de 
dibujo con ordenador, descubriremos que necesitamos, como mínimo, algunos conoci- 
mientos básicos de cálculo, álgebra, geometría euclídea y teoría de números, y no 
sólo de geometría cartesiana como se puede (erróneamente) suponer. Prepárese a 
“saquear” su biblioteca más próxima (o a amargarle la vida a su amable vecino 
matemático) en busca de la información necesaria. 


Programas completos 


En este punto agruparemos los listados 2.1, “comienzo” (start); 2.2 “dos fun- 
ciones FN X y FN Y”; 2.3, “fijaorigen” (setorigin); 2.4, “trazapuntos” (moveto); 
y 2.5, “trazalíneas” (lineto) bajo el nombre de “rutl”. Más adelante cambiaremos 
el listado 2.5 por el 3.3, “recorte” (clip) y una nueva versión de “trazalíneas” (li- 
neto). 


LI. “rutl” y el listado 2.6, “dibujando un cuadrado” (drawing a square): sin datos 
de entrada. 

IL. “rutl” y el listado 2.7, “programa principal” (main program) y “poligono” (po- 
ligon): precisan el número de lados del poligono, y las coordenadas de los 
vértices X/Y (-15 <X < 15 y —10 < Y < 10). 

MI. “rutl” y el listado 2.9, “uniendo vértices de un polígono regular de N lados” 
(joining vertices of regular N-gon): necesita un entero N < 30. 

IV. “rutl” y su propio “programa principal” (main program) (el listado 2.7 puede 
ser útil como modelo): llama a los listados 2.10a, “círculo1” (circle1) y 2.10b 
“círculo2” (circle2). Cada subrutina precisa el centro (XCENT, YCENT) y el 
radio R. Seleccione estos valores de forma que el gráfico sea consistente con 
sus valores de HORIZ, VERT, XMOVE e YMOVE. Puede ensayar con 30, 
20, 15 y 10, respectivamente. Como ejemplo llame a “círculo1” con centro en 
(1, —1) y radio 8, y a “círculo 2” con centro en (1, 2) y radio 5. 

V. “rutl” y su propio “programa principal” que llame a los listados 2.11la “espi- 
rall” (spirall) y 2.11b “espiral céltica” (celtic). Cada una de las subrutinas 
requiere el centro (XCENT, YCENT), el radio máximo RMAX y el número 
de vueltas de la espiral N. El listado 2.11a “espirall” también precisa un ángulo 
BETA, mientras que 2.11b “espiral céltica” necesita un valor SIGN, que es 
+1. Seleccione estos valores de forma que la figura sea consistente con sus 
valores de HORIZ, VERT, XMOVE e YMOVE (por ejemplo: 30, 20, 15 y 10). 
Puede llamar a “espiral1” con centro en (— 1, 1), RMAX = 8, N = 3 y BETA = 
=2, y a “espiral céltica” con centro en (1, 2), RMAX =5 y SIGN = —1; 
inténtelo también con SIGN = = + 1. 
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vL 
VII. 


“rutl” y el listado 2.12, “envolvente” (envelope): precisa un entero N,2 < N < 30. 
“rutl” y el listado 2.13 “Euclides” (Euclid) y “espirógrafo” (spiro): requiere tres 
enteros A, B y D, donde A > B > D. Elija HORIZ, VERT, etc., de forma que 
el dibujo quepa en la pantalla: tame XMOVE = HORIZ*0.5, YMOVE = 0.5x 
VERT (para “fijaorigen”), donde tanto HORIZ como VERT son mayores que 
2*x(A — B + D). . 
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3 


Geometría cartesiana 
en dos dimensiones 


En el capítulo 2 presentamos el concepto de sistema de ejes coordenados en 
dos dimensiones; allí definimos los puntos del espacio en forma de vectores, que nos 
permitían trazar segmentos rectilíneos entre pares de puntos. En buena ley, una línea 
recta en un espacio bidimensional no es un segmento de longitud finita, sino que se 
extiende hacia el infinito en ambos sentidos, de forma que se nos presenta la nece- 
sidad de representar un punto cualquiera de dicha recta. 

Se nos ha enseñado que la ecuación de una recta es y = mx + c, es decir, la re- 
lación entre las coordenadas x e y de un punto perteneciente a la recta, donde m 
es la tangente trigonométrica del ángulo que forma la recta con la parte positiva 
del eje x, y c es el punto de intersección de la recta con el eje y; o sea, cuando 
x=0, y =c. Esta fórmula será muy conocida, pero no es muy útil. ¿Qué ocurre 
cuando la recta es vertical? ¡m es infinito! Una fórmula de mayor utilidad es 


ay =bx>+c 


Esta nueva ecuación puede aplicarse a todas las rectas del plano: si es vertical, 
a se anula; (b/a) es ahora la tangente del ángulo que la recta forma con el semieje x 
positivo, y el punto de corte con el eje y es (c/a) supuesto que a sea distinto de O. 
Similarmente, el punto de corte con el eje x es (—c/b) siempre que b no sea 0. La 
recta es paralela al eje y si a es 0 y al eje x si la que se anula es b. 

En las siguientes páginas emplearemos frecuentemente esta ecuación; sin embargo, 
vamos a proponer a continuación otro método para definir una recta, que quizá sea 
más fructífero. Antes de exponer este nuevo método tenemos que definir dos opera- 
ciones sobre vectores (la multiplicación por un escalar y la suma de vectores) y des- 
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cribir otra operación necesaria —el valor absoluto (módulo) de un vector. Sean dos 
vectores p; = (x1, y1) y P2 = (X2, y2); definimos las siguientes operaciones: 

Multiplicación por un escalar: kp, = (k x x,, k x y), multiplicamos cada una de 
las coordenadas por un valor escalar des decir, un número real) k. 

Suma de vectores: Pp; + P2 = (X1 + X2, Y1 + J2), se suman por una parte las coor- 
denadas x y por otra las y. : 

Valor absoluto: |pyl = (xi + yi) es la distancia entre el punto p, y el origen 
(a veces se le denomina amplitud, longitud o módulo del vector). 

Para definir una línea recta elegimos, en primer lugar, un par de puntos de la 
recta, de nuevo los llamaremos p, = (Xi, y1) y P2 = (X», y2). Cualquier punto p(u) = 
= (x, y) de la recta está dado por la combinación de multiplicaciones por escalares 
y suma de vectores: 


(1 — 1)p, + up, para algún valor de y real 


que en forma desarrollada nos da el vector ((l — 1) x x1 +4 x x2(l —=HM xy +pux 
Xx y2). Hemos colocado u entre paréntesis detrás de p para indicar que el vector p 
depende de valor que tome u. Más adelante, cuando hayamos asimilado totalmente 
la dependencia de p con u, quitaremos el paréntesis (1). Si O < y < 1, entonces p(u) 
se encuentra entre los puntos p, y p2. Para un punto dado p(u), el valor de y 
viene dado por la relación 


e distancia de p(u) a p; 


distancia de P2 Pi 


donde la distancia se toma positiva si p(u) está en el mismo lado de p, que p,, 
y negativa en el caso contrario. La distancia entre dos puntos dados por sus vectores 
P1 y p2 puede calcularse mediante el teorema de Pitágoras: 


lp, — pil = (ES = x2Y + (y1 — y2)) 


En la figura 2.1 tenemos un segmento entre los puntos (—3, —1) = p(0) y (3, 
2) = p(1): el punto (1, 1), que pertenece a la recta es p(2/3). Obsérvese que la dis- 
tancia entre (—3, —1) y (3, 2) es INS mientras que la que separa a (—3, —1) de 
(1, 1) es 2/5. A partir de ahora omitiremos la dependencia explícita del vector p 
con u (representaremos a p(u) simplemente por p). 


Ejemplo 3.1 


Podemos ilustrar estas ideas por medio del trazado del modelo de la figura 3.1. 
A primera vista parece complicado, pero en una inspección más detallada se puede 
descomponer en un cuadrado, circunscrito a otro cuadrado, circunscrito a otro cua- 
drado, etc. Los cuadrados $e van haciendo cada vez más pequeños y además rotan 
un ángulo constante sobre el anterior. Con el fin de dibujar el diagrama, necesita- 
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mos de una técnica que, partiendo de un cuadrado general, nos dibuje otro cua- 
drado más pequeño inscrito en el anterior y rotado un cierto ángulo fijo. Sean 
(xj, yi)li = 1,2, 3, 4) los cuatro vértices del cuadrado de partida, cuyo lado ¡-ésimo 
será el segmento que une los puntos (x;, y;) y (x; + 1, y; + 1), donde la suma se 
realiza para los subíndices de forma cíclica (es decir, 4 + 1 = 1). Un punto cualquiera 
del cuadrado (x', y;) situado sobre este lado será el: 


(lx x+p4XxXxi+1,(l — 4) x y + uo X yi¡+1) donde 0 < u < 1 


Incidentalmente, u : 1 — es la proporción en la que dividimos el lado del cuadrado. 
Si y es constante y los cuatro puntos ((x;, y;)li = 1,2, 3, 4) se calculan con la expresión 
anterior, entonces los lados del nuevo cuadrado formarán un ángulo. «4 = arc tan 
[u/(1 — u)] con el lado correspondiente del cuadrado exterior. Para que el ángulo 
de giro permanezca constante, lo único que tenemos que hacer es mantener el mismo 
valor de . En el listado 3.1, que genera la figura 3.1, hay 21 cuadrados y y vale 0.1. 


Listado 3.1 


¡pa : Ñ Ñ ' ú _ AE _ a o a al | 
a 100 REM programa principal or | 
| 
110 LET start=9700: LET setorig 
¡OM in=94600: LET moveto=95002: LET 11 ¡0) 
neto=9400+ LET clip=8400 
e 120 LET HORIZ=%4 LET VERT=2,1 
Y. 130 60 SUB start CARA 
? 140 LET XMOVE=HORIZ*0.53: LET YM | 
OVE=VERT*0O. 5 
130 60 SUB setorigin 
160 DIM X(4): DIM Y(4): DIM V(4 
O Ji DIM W(4) 


209 REM Calcula los siguientes MS 
4 vertices (V(J),W(J))35 J=1-4 | | 


| e A E ¡O 
| 179 REM Inicializa el primer cu 
Ou adrado OS 
) 180 FOR I=1 TO 4: READ X(1),YCI PS 
3 NEXT 1 | 
TE 199 REM Fija el valor de MU y d E 
ibuja 20 cuadrados | 
190 LET MU=x0.1í LET LUM=1-MU 
e 200 FOR l=1 TO 21 Ol 
208 REM Une los 4 vertices del : | 
O! cuadrado (X(9),Y(J))5 J=1-4 
| 
| 
| 
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| 210 LET XFT=X(4):3 LET YEFT=Y (4): 

: GO SUB moveto 

220 FOR J=1 TO 4 

230 LET XFT=X(J)3 LET YFT=Y(J): 

| GO SUE lineto 

240 LET NIJ=J+13 1F NJ=5 THEN .L | 
O | ET NJ=1 ¡ O 

| 

| 

| 

l 

| 

I 

| 

I 

| 


2590 LET V(J)=LUM*X (J)+MU*X (NJ) 
260 LET W(J)=UM*Y (3) +MU*Y (NJ) 


O 270 NEXT J eS 
279 REM Copia las matrices V y 

de Wen X e Y C 
280 FOR J=1 TO 4 7 
290 LET X(J)=V4(J)3 LET Y(J)=W(J 

O ) 
300 NEXT J 
210 NEXT 1 


0) 220 STOP 


Figura 3.1 


Si revolvemos un poco la ecuación de la recta en función de los vectores corres- 
pondientes a dos puntos, podemos dejarla en la forma siguiente: 


Pi + Hp — P1) 
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Cuando se da en esta forma, a p, se le denomina vector de base, y a (pz — Pi) 
vector de dirección. De hecho cualquier punto de la recta puede actuar como base, 
actúa, sencillamente, como punto de fijación de una recta que es paralela al vector 
de dirección. El concepto de vector como identificador de una dirección merece unas 
ciertas consideraciones. Como hemos visto, un vector (x, y) puede representar un 
punto; la recta que une el origen con dicho punto puede tomarse como definición 
de una dirección en el plano —cualquier otra recta paralela a ella tiene, por de- 
finición, la misma dirección (y por tanto el mismo vector de dirección). Insistimos 
en que la recta va desde el origen al punto (x, y), éste es el llamado sentido po- 
sitivo; una recta que va desde (x, y) hacia el origen se dice que tiene sentido negativo. 

En el siguiente ejemplo se usa la interpretación dual, como punto y como direc- 
ción, de un vector. 


Ejemplo 3.2 


Dibuje una línea recta discontinua, con 13 tramos (y por tanto, 12 espacios entre 
ellos) desde el punto p, = (x1, y1) al pz = (x2, y2). Este problema se resuelve hallando 
26 puntos equiespaciados en el segmento; o sea, p, + ¡/25(p> — pi) donde ¡ varía 
desde O (en p,) a 25 (en p>). De cada punto al siguiente, o bien nos movemos sin 
dibujar, o bien trazamos el segmento que los une. Empleamos la subrutina “plot” 
del CalComp (listado 2.8). No hay necesidad de guardar los valores de los puntos 
intermedios; tenemos p,, de forma que añadiendo 1/25 (p, — p,) al último punto 
calculado hallamos el siguiente hasta alcanzar p». 


Listado 3.2 
(0 y EE A 
¡Ed E 100 REM lineas de puntos O 
| 110 LET start=9700: LET plot:="98 | 
| 00 
e 120 LET HORIZ=2%4 LET VERT=Z2,1 MO 
| 130 GO SUE start | 
leen 140 LET XFT=HORIZ*.5: LET YFT=V ) | 
Z ERT*.S5: LET MODE=-7 E 
' 150 GO SUB plot : 
O 160 INFUT "TECLEA X1 E Yi "3X13 ] | 
| y " 5 " E Y 1 i O 
| 170 INFUT "TECLEA X2 E Y2 "4X2;3 i | 
O ” : ” 5 YO | O | 
1792 REM Se mueve al primer punt | 
[e] | | 
O 180 LET XFT=X1t% LET YFT=Y13 LET LO | 
MODE=3: GO SUB plot MAS 
; 190 LET XD=(X2-X1)/231 LET YD=( 
cx Y2-Y1)/25 LA 
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199 REM Dibuja y se mueve alter 
nativamente a los siguientes 23 
2 puntos de la recta Es 

/ 


200 FOR l=1 TO 253 
210 LET XFT=XFT+XDs LET YEFT=YFT 


O +YD: LET MODE=5-MODE: GO SUE plo O 
t 
: 220 NEXT 1 e 
O 230 STOP Sem 


Ejercicio 3.1 


Experimente en el dibujo de distintos tipos de líneas a trazos: por ejemplo, 
a) los trazos el doble de largos que el espacio que los separa; b) fijar el tamaño de 
los trazos y calcular su número; c) los trazos podrían variar en su longitud, alter- 
nando un trazo largo y otro corto, donde la relación entre el tamaño de ambos y de 
uno de ellos con el espacio que los separa sean variables a introducir. 

Esta representación en forma de base y dirección es de gran utilidad con vistas 
al cálculo del punto de intersección de dos rectas; problema éste que se presenta 
con bastante asiduidad en gráficos bidimensionales. Sean dos rectas p + 1q yr + ds, 
donde P (X1, Y 1), q= (x2, Y2), r= (x3, Y3) ys= (Xa, Ya) VA 00 < M4 < 00. Quere- 
mos encontrar los valores (únicos) de y y 4 que cumplen la condición 


Pp+uq=r+ds 


que es, evidentemente, el punto común a ambas rectas. Esta ecuación vectorial puede 
desdoblarse en dos ecuaciones: 


XFA Xx2=xX3+2XX (3.1) 

Y F.HXJY=Y3+4X Ya (3.2) 
Si remodelamos estas ecuaciones obtenemos: 

HXx2=A4XX4=X3 — Xi (3.3) 


HXY2=AX Ya =Y3 — Y1 (3.4) 
Multiplicando (3.3) por ya, (3.4) por x4 y restando ambos resultados obtenemos: 
"MX (X2 X Ya — Y2 X X4) = (X3 — X1) X Ya — [Y3 — Y1) X X4 


Si (X2 X Y4 — Y2 X x4) = O entonces ambas rectas son paralelas y no existe punto 
de intersección (es imposible calcular 1); en caso contrario, 


(x3 — x1) X Ya — (Y3 — Y1) X Xa (3.5) 
(x2 X Ya — Y2 X xa) 


análogamente, 


(x3 — X1) Xx Ya — (Ya — Yi) X X2 (3.6) 
(%2 X Ya — Y2 X X4) 


La solución es mucho más sencilla si una de las rectas es paralela a alguno de 
los ejes de coordenadas. Sea la recta x = d, entonces podemos tomar r = (d, 0) y 
s = (0, 1), que llevada a la ecuación (3.5) da 


U =(d — x1)/x2 
y si la recta es y = d, entonces, análogamente, 
U = (d — y1)/y2 


Naturalmente, si ambas rectas son paralelas, entonces el denominador de estas 
ecuaciones será cero y obtenemos un resultado infinito, que es donde se cortan dos 
rectas paralelas. 


Ejemplo 3.3 


Hallar el punto de intersección de las dos rectas: a) que pasa por los puntos 
(1, —1) y (— 1, —3) y b) definida por los puntos (1, 2) y (2, —2). 
Las rectas pueden escribirse 


d=JLl- Miaek- 3). =iizs (3.7) 
(1 -— 2)(1,2) + 4Q, -2) =0<¿4<0ow (3.8) 
o bien poniéndolas en la forma vectorial base/dirección 
(1, 1) + u(—2, —2) (3.9) 
(1,2) + 12, -4) (3.10) 
Llevando estos valores a la ecuación (3.5) tenemos 


E DRALF02 
EPA E 


Y el punto de intersección es (1, —1) —1/2(—2, —2) = (2, 0). 


Ejercicio 3.2 


Experimente con-este concepto de la representación vectorial del espacio de dos 
dimensiones. Usted puede generar sus propias preguntas: es fácil de comprobar si 
las respuestas son correctas o no. Sea el ejemplo 3.2. Sabemos que el punto (2, 0) 
está sobre la primera recta porque usamos el valor y = —1/2 para calcularlo; la 
respuesta sería correcta si también estuviera sobre la segunda; lo está y 4 = 1/2. 
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Ejercicio 3.3 


Escriba un programa que lea los datos correspondientes a dos líneas rectas (dadas 
o bien en forma de ecuación, o bien en la forma vectorial base/dirección) y a con- 
tinuación calcule (si existen) los puntos de intersección. 


Recorte 


A estas alturas, ya se habrá dado cuenta de que es imposible utilizar las ins- 
trucciones PLOT o DRAW con un pixel (x, y) que esté fuera del área gráfica, y por 
tanto tenemos los límites O < x < 225 y 0 < y < 175. Es muy fácil salirse inadvertida- 
mente de esta área. De hecho, cuando se dibujan imágenes bi o tridimensionales 
es bastante normal construirlas de un tamaño mayor que el permitido para los gráficos 
en el Spectrum. Es, por tanto, necesario encontrar un algoritmo que elimine todos 
los tramos exteriores, reteniendo aquellas partes que deban ser dibujadas. 

Supongamos que el centro de la pantalla (geométrico, no pixel) se corresponde 
con el punto (255/2, 175/2) = (127.5, 87.5) y por tanto, las cuatro esquinas de la zona 
gráfica son los puntos (127.5 + 127.5,87.5 + 87.5). Nuestro problema se reduce a 
calcular la parte del segmento que une el pixel (XA, YA) con el (XB, YB) que cae 
dentro de la zona (si existe). Para simplificar la solución, redefinimos el origen de 
coordenadas de pixels en el centro de la pantalla restando el vector (175.5, 87.5) de 
las coordenadas correspondientes al anterior sistema de coordenadas. Las esquinas 
del rectángulo gráfico tienen como coordenadas (+ 127.5, +87.5). Extendemos los lados 
del rectángulo dividiendo, por tanto, el espacio en nueve sectores; vea la figura 3.2, 
que muestra no sólo el área gráfica, sino también el BORDER. En este diagrama, 
se han dibujado varios segmentos como ayuda a la explicación del algoritmo. Cual- 
quier punto del espacio puede clasificarse por dos parámetros IX e IY donde 


1) IX = —1,06 + 1 dependiendo de si la coordenada x del punto está a la izquierda, 
dentro, o a la derecha de la zona gráfica; 


2) IY = —1,06 + 1 dependiendo de si la coordenada y del punto está abajo, dentro, 
o sobre el rectángulo gráfico. 


Estos valores se calculan, cuando sea necesario, dentro del programa del algoritmo. 

Si los dos puntos extremos del segmento —o sea (XA, YA) y (XB, YB)— tienen 
como parámetros IXA e IYA, IXB e IYB respectivamente, entonces se nos presentan 
varias posibilidades: 


1) IXA = IXB 4 06 IYA = IYB 4 0. El segmento completo está fuera del rectán- 
gulo y puede ser ignorado sin problemas. Por ejemplo la línea AB de la figura 3.2. 


1i) IXA = IXB = IYA = IYB = 0. El segmento está totalmente dentro del rectán- 
gulo y debe dibujarse. Por ejemplo la línea CD. 
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111) Los casos restantes deben considerarse más detenidamente. Si IXA 4% 0 y/o 
IYA % 0, entonces el punto (XA, YA) está fuera del rectángulo y deben hallarse 
otros nuevos valores para XA e YA; para evitar confusiones los denominaremos 
XA' e YA”. (XA', YA”) es el punto del 'segmento más próximo a (XA, YA) donde 
la línea corta a la zona gráfica. La fórmula para hallar este punto la vimos antes; 
es la intersección del segmento con una recta paralela a un eje de coordenadas. Si 
el segmento cae fuera del rectángulo, entonces definimos el punto (XA”, YA”) como 
el de intersección del segmento con la prolongación de los bordes verticales. Si 
IXA = IYA = O entonces (XA”, YA”) = (XA, YA). El punto (XB', YB”) se calcula de 
una forma similar; vea el algoritmo dado por la subrutina “recorte” en el listado 3.3 
La parte del segmento a dibujar es la que une los puntos (XA”, YA”) con el (XB', 
YB'). Si el segmento está totalmente fuera del rectángulo, el algoritmo.nos da (XA”, 
YA”) = (XB', YB') y el segmento degenera en un punto y es ignorado. Por ejemplo, 
EF, tras ser recortado, queda E'F”"; GH queda GH' (G = G') e IJ degenera en el 
punto I' =J', 


En resumen, la subrutina “recorte” toma los pixels extremos del segmento (XA, 
YA) y (XB, YB), y los transforma con respecto al sistema centrado en el rectángulo 
gráfico. A continuación determina cuál de las tres posibilidades anteriores se cumple 
y actúa en consecuencia: i) salir inmediatamente de la subrutina; ii) unir ambos 
puntos; o iii) calcular los puntos “acentuados” y unirlo con un segmento. 

El listado 3.3 incluye también una nueva versión de la subrutina “trazalíneas” 
que llama a “recorte” en vez de usar las instrucciones PLOT y DRAW, permitiendo 
el trazado de segmentos rectilíneos independientemente de su posición en el espacio. 
De ahora en adelante usaremos esta nueva versión de “trazalíneas”. Demostrará que 
vale sus bytes en oro, especialmente en el estudio de objetos tridimensionales. 


Figura 3.2 
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Ejercicio 3.4 


Emplee esta versión modificada en los programas del capítulo 2. Elija los valores 


de HORIZ y VERT de forma que algunas líneas se salgan de la zona gráfica. 


8401 REM Datos de entrada XA, YA, 
8409 REM Cambia el sistema de c0 


8410 LET XA=XA-127.5: LET YA=YA- 
87.5: LET XB=XB-127.5: LET YB=YB 


8419 REM Encuentra el valor del 
sector de los puntos (XA,YA), (XE 


8420 LET IXA=0% IF ABS XA:127.5 

THEN LET IXA=SGN XA 

8430 LET IYA=0%2 IF ABS YA:>87.3 T 
HEN LET IYA=SGN YA 

8440 LET IXE=0% IF ABS XE>127.0 

THEN — LET IXB=5GN XE 

8450 LET IYB=03% IF ARS YR:87.3 T 
HEN LET IYB=SGN YE? 

8439 REM Si los puntos estan en 

el mismo sector fuera de pantall 


8460 IF IXA*XIXE=1 OR IYA*xIYE=1 T 


8470 1F 1XA=0 THEN GO TO 8300 
8479 REM Mueve el primer punto a 
l borde X mas cercano 

8480 LET XX=127,59*IXA: LET YA=YA 
+ (YB-YA)% (XX-XA)/(XB-XM)3: LET XA 


8490 LET IYA=03: 1F ARS YA287.3 T 
HEN  LET IYA=SGN YA 

85300 IF 1YA=0 THEN. 60 TO 85020 
8509 REM Mueve el primer punto a 
1 borde Y mas cercano 


Listado 3.3 
ir _ he A 
O 8400 REM recorte 
1] 
E XE, YE 
: ordenadas 
O 
| -87.5 
a 
| , YE) 
O 
| 
O 
2 EE 
| 
3 
| a volver 
O 1 HEN RETURN 
O | 
| 
O 
=XX 
O 
(9 
Í 


8510 LET YY=87.5x*1YA: LET XA=XA+ 


O 


O 


O 


] (XB-=XAI)XIYY-YA)/(YE-Y8) 3 LET YA= 

AS 
Ó 320 IF. 1IXB=0 THEN G0 TO 85350 | O 
83292 REM Mueve el segundo punto 


O al borde X mas cercano O 
8so LET XX=127.5*I1XB: LET YE=YA 
F(VE-YA)*(XX=XAM)/(XE-=XA)3% LET XE : 

O =XX WEE: 


| 
| 8540 LET IYB=0: IF ABS YB>87.5 T 
HEN LET IYE=SGN YE | | 
SE 8550 IF IYB=0 THEN 60 TO 8370 eS: 
835092 REM Mueve el segundo punto | 
al borde Y mas cercano 


B360 LET YY=87.5x*IYE: LET XB=XA+ O 
(XBE-=XM)(YY-YA)/(YE-Y0):2 LET YBE= | 
O 1 y | O 
8570 IF ABS (XA-XE)20,000001 AND ¡| Y 
AES (YA-YB)20,000001 THEN  RETU 
2h AN A 0 
3977 REM Traza los puntos no col 
ncidentes 
e 8580 LET XA=INT (XA+128): LET YA Ha 
=INT (YA+88): LET XE=INT (XE+128 A 
y: LET YB=INT ] 
O (YE+88) ¡e 
8590 FLOT XA, YA: DRAW XE-XA, YE-Y 
A: RETURN 
O o Q 
: 9400. REM linea/recorte 


9401 REM Datos de entrada XFT,YF | 


O T, XFEN, YREN E, 
9409 REM Datos de salida XFEN, YP | 
o. EN qe 
9410 LET XA=XFEN: LET YA=YFEN E 
| 9420 LET XFEN=FN X(XFT) 
+ 9430 LET YFEN=FN Y(YFT) 


9440 LET XE=XFEN: LET YE=YFEN 
94350 60 SUB clip 
¡DN 9460 RETURN 


> A S o _ ó L PE] 


Volviendo al empleo de un vector (q = (x, y) % (0, 0)) para representar una direc- 
ción, debemos darnos cuenta de que el vector producto de q por un escalar k > O, 
representa la misma dirección y sentido que q. (Si k < 0 entonces tiene la misma 
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dirección pero el sentido es el opuesto). En particular, si k = 1/|ql, entonces kq = 
= (x/Y4(x? + y?), y/y/(x? + y?) y su valor absoluto es 1. 

Por tanto, un punto cualquiera de la recta p + q, está a una distancia |uq| del 
punto base p, y si lgl = 1 (un vector unitario), entonces la distancia del punto a 
pes lp. 

Consideraremos ahora los ángulos formados por los vectorts de dirección con 
varias direcciones fijas. Sea a el ángulo formado por la recta que une el origen O 
con el punto q = (x, y), y la parte positiva del eje x. Entonces x =|q| x cosa e y = 
= [ql x sen a; vea la figura 3.3; se pueden construir figuras similares para los otros 
tres cuadrantes. 


(ALA E NOA 


LA IDA 


Figura 3.3 


Si q es un vector unitario (ql = 1), entonces q = (cos a, sen a). Si tenemos en 
cuenta que sen a = cos (a — 1/2) para cualquier a, podemos escribir q = (cos a, cos 
(a — n/2)), pero a. — 7/2 es el ángulo que forma el vector con la parte positiva del eje y. 
A causa de este hecho se denominan cosenos directores a las coordenadas de un 
vector de dirección unitario, ya que son los cosenos de los ángulos que forma el 
vector con los semiejes positivos respectivos. 

Antes de continuar, deberíamos echar un vistazo a las funciones trigonométricas 
de que dispone el BASIC: SIN (seno) y COS (coseno), y a la función inversa ATN 
(arco tangente). SIN y COS son funciones con un solo parámetro (un ángulo dado 
en radianes) y un resultado (un valor entre —1 y +1). La función ATN acepta cual- 
quier valor y calcula el ángulo en radianes (en el llamado rango principal entre 
—r1/2 y + 1/2) cuya tangente es ese valor. 

Esto nos conduce al problema de encontrar el ángulo que forma una dirección 
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cualquiera q = (x, y) con el semieje positivo x. El problema lo resuelve la subrutina 
“ángulo” dada en el listado 3.4; “ángulo” será de gran utilidad en los capítulos 
siguientes cuando consideremos el espacio de tres dimensiones. 


Listado 3.4 
+: 3 e , 1 
3800 REM angulo 
8801 REM Datos de entrada AX, AY 
8802 REM Datos de salida TETA 

Ex 3809 REM TETA es el angulo entre O 
la recta a (AX, AY) y el eje X p 

e ositivo > 

o 6810 IF ABS AX:0, 00001 THEN 60 E 
TO 8860 

O 3819 REM La recta es vertical O 

ES 820 LET THETA=F1/2 pl 
8830 1F AYZO THEN LET THETA=THE 

E A O 
8840 IF ABS AYZ20,00001 THEN LET 
CTHETA=0 | 

O 82850 RETURN Ne 
88359 REM La recta no es vertical 
ys tiene tangente finita 

O 8860 LET THETA=ATN CAY/AX) 7 
3870 IF AXZO THEN LET THETA=THE 
TA+ET 


7 8880 RETURN E 


ÚÑ A A 


Supongamos ahora que tenemos dos vectores de dirección (a,b) y (c,d); por 
simplicidad los consideraremos unitarios y colocados sobre el origen de coorde- 
nadas (véase la figura 3.4). Queremos calcular el ángulo agudo a que forman estas 
rectas. A partir de la figura podemos establecer que OA = (a? + hb?) = 1 y OB = 
lc? + d?) = 1. De forma que por la regla del coseno 


AB? = OA? + OB? -— 20A x OB x cosa =2 x (1 — cos a) 
Pero también por el teorema de Pitágoras: 


AB? = (a — e)? + (b — dy? = (a? + b?) + (c? + d?) —- 2(ax c+b xd) 
=2-2(axc+bx d) 


Por tanto a x c + bx d =cosq. Es posible que a x c + bx d sea negativo, en 
cuyo caso cos” * (a x c+b xd) es obtuso y el ángulo agudo que buscamos sería 
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Figura 3.4 


TT — a. Como cos (1 — 4) = —cos a, entonces el ángulo agudo se puede calcular como 
cos”* (la x c + b x dl). Por ejemplo, dadas dos rectas cuyos cosenos directores son 
(VGB/2, 1/2) y (—1/2, — y3/2)), tenemos que a xb+ bx d= — (3/2) y por tanto 
a =cos”! (1G/2) = 1/6. Este ejemplo sencillo nos presenta el concepto de producto 
escalar - de dos vectores, (a,b): (c,d) =a x c+b x d. El producto escalar se puede 
extender a espacios con mayor número de dimensiones (véase el capítulo 7 donde 
se presenta un ejemplo entre dimensiones) y siempre tiene la propiedad de dar el 
coseno del ángulo entre cualquier par de rectas cuyas direcciones están definidas 
por los dos vectores. 


Curvas: Representación en forma de función y en formas paramétricas 


Una curva en un espacio bidimensional puede considerarse como una relación 
entre los valores de las coordenadas x e y de sus puntos, lo que se llama una relación 
funcional. Por otra parte, ambas coordenadas pueden darse en términos de otras va- 
riables o parámetros; esta forma de definir una curva se conoce como forma para- 
métrica. 

Ya hemos visto que una recta (un arco de circunferencia de radio infinito) puede 
expresarse como ay = bx + c. Si retocamos la ecuación de forma que su término 
derecho sea cero (ay — bx — c = 0), entonces la expresión igualada a cero es lo que 
llamaremos una representación funcional de la recta y lo escribiremos: 


f(x, y) =ay=bx-=c 


Todos los puntos, y solamente ellos, que cumplan la propiedad f(x, y) = O estarán 
sobre la línea. Esta representación divide a todos los puntos del espacio bidimen- 


sional en tres grupos, f(x, y) = 0 (el conjunto cero), f(x, y) > O (el positivo) y f(x, y) < 0 
(el negativo). Si la función divide al espacio solamente en la curva y dos áreas conexas 
(decimos que un área es conexa si dos puntos cualesquiera de ella pueden unirse 
por una curva que no corta a la curva que limita al área), entonces podemos iden- 
tificar a estas áreas con los conjuntos positivo y negativo de f. Sin embargo, ¡cui- 
dado!, existen muchas funciones elementales (por ejemplo, g(x, y) = cos (y) — sen (x)) 
que definen no una sino una serie de curvas y por tanto, dividen el espacio incluso 
en un número infinito de áreas conexas (obsérvese que g(x, y) = g(x + 2mx, y + 2nn) 
para cualquier m y n enteros). De forma que es posible que dos áreas inconexas 
pertenezcan al conjunto positivo. 

Obsérvese también que la representación no es única. Podíamos haber definido 
la recta de otra forma equivalente, 


f(x, y) =bx+<«- ay 


en cuyo caso el conjunto positivo de esta función es el negativo de la f(x, y), y vi- 
ceversa. 

Cuando la curva divide el espacio en dos áreas conexas es muy útil en el tra- 
zado gráfico con ordenador, como veremos en el estudio de algoritmos gráficos en 
dos y (especialmente) tres dimensiones. Por ejemplo, tomemos la línea recta 


f(x, y) =ay=bx=c 


donde un punto (x;, y,) está en el mismo semiplano que (x», y) si y sólo si f(x;, 
y,) tiene el mismo signo que f(x», y>). La representación funcional nos da más in- 
formación sobre el punto que la de saber si está o no sobre la línea: también nos 
permite calcular su distancia a la recta. 

Sea la recta anterior, cuyo vector de dirección es el (a, b). Una recta perpendicular 
a ella tendrá un vector de dirección (—b, a) (recuérdese que cos (au — 1/2) = sen u 
y sen (a — 1/2) = —cos a). De forma que el punto q, sobre la recta, más próximo 
al p = (x;, y,) es de la forma 


q = (X1,y1) + u(—b, a) 


que es una nueva recta que une p y q y que además es perpendicular a la recta 
anterior. Como q está también sobre dicha recta 


F (q) =f(x1, y 1) + u(—b, a)) =0 
por tanto 

ax(y+pxaj—bx(x,—-pxb)-c=f(x,,y,) + u(a? + b?) =0 
y obtenemos y = —f(x,, y,)/(a? + b?). El punto q está a una distancia u x |(—b, a)! 
del (x,, y1), lo que significa, naturalmente, que la distancia del punto (x;,, y,) a la 
recta es y x ,/(a? + b?) = —f(x1, y1)/y(a? + b?); si el signo nos indica el semiplano 
sobre el que se encuentra el punto. Si a? + bh? = 1, entonces [f(x,, y,) nos da la dis- 
tancia del punto (x,, y,) a la recta. 


Esta idea nos conduce directamente a un sistema para implementar superficies 
convexas; esto es, una zona tal que cualquier par de puntos dentro de ella pueden 
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unirse por un segmento incluido totalmente en dicha área. Nos limitaremos al estudio 
de polígonos convexos; cualquier curva convexa puede aproximarse por un polígono 
convexo de gran número de lados. 

Suponga que tenemos un polígono convexo con n vértices [p; = (x;, y;)li = 1,.... n) 
ordenados en sentido horario o antihorario (coincidente o contrario a las agujas del 
reloj, respectivamente); denominaremos a esta forma de describir un poligono con- 
vexo como conjunto orientado de vértices. El problema de hallar el sentido de giro 
lo trataremos en el capítulo 7. Los n segmentos que limitan al polígono vendrán 
dados por las ecuaciones 


Filo, y) = Quira — xi) X (y — Yi) — (ira — yi) x (0 — x5) 


donde ¡ = 1,...,n, y la suma de los subíndices se realiza módulo n (esto es, n+j=j 
para 1<j<mnm). ¡Trate de demostrar que la ecuación anterior es realmente la de 
los lados del polígono! 

La definición sistemática de los lados del poligono nos permite definir su parte 
interna. Dado cualquier lado, por ejemplo el que une los vértices p; y P;+,, se 
cumple que todos los puntos interiores del polígono están situados en la misma 
banda que los restantes vértices del polígono, en particular que p;,,. Por tanto 
la parte interna está dada por: 


Lo, y)Isigno de Fix, y) 5 signo de f(x;+ 2, Yi+2) A 0 : Í = l ...» n) 
Un punto del perímetro es: 


Lx, y)existe un j, o dos si (x, y) es una esquina, donde 1 << n tal que f¡(x, y) = 
= 0 y signo de f(x, y) = signo de fi(xi+2,Yi+2) 0: AHjy1<S iS nm) 


Un punto exterior al área está definido por 


L(x, y)]lexiste un j,1 < j < n tal que 
0 % signo de f(x, y) + signo de f(x j+2, Yj+2) H 0) 


Naturalmente todas las sumas de índices se hacen módulo n. 


Ejemplo 3.4 


Suponga que nos dan un polígono convexo cuyos vértices son (1, 0), (5, 2), (4, 4) 
y (-2, 1) (vea la figura 3.5). La orientación es antihoraria. Los puntos (3, 2), (1, 4) 
y (3, 1), ¿están dentro, fuera o sobre algún lado del polígono? ¿Cuál es la distancia 
del punto (4, 4) a la primera línea? 


fix, y) =(5S-1)x(y-0)- (2-0) x (x-—1)=4y-2x +2 
fax, y) =(4— 5) x (y -2)-(4-2)x (x-—5)=-y-2x+12 
falo, y) = (-2—4) x (y — 4) - (1-4) x (x-— 4) = —6y + 3x + 12 
fix, y) =(14+ 2 x (y-1)-(0-1)x(x+2=3y+x-1 


Figura 3.5 


Por tanto el punto (3, 2) es interno ya que f,(3, 2) = 4 y f,(4, 4) = 10; £2(3, 2) = 4 y 
fA—-2,1) = 15;f3(3, 2) = 9 y fx(1, 0) = 15; f4(3, 2) = 8 y fa(5, 2) = 10; todos tienen signo 
positivo. 

El punto (1, 4) está fuera ya que f3(1, 4) = —9 y fix(1, 0) = 15: signos contrarios. 

El punto (3, 1) pertenece al perímetro ya que f,(3, 1) =0, £2(3, 1) = 5, f3(3, 1) = 15 
y fa(3, 1) = 5. 

De hecho, no hay necesidad de calcular f;(x;+»>, y;+2) para todo i, todos tienen 
el mismo signo; de forma que una vez calculado f,(x3, y3) entonces podemos seguir 
con este mismo valor. 

La distancia del punto (4,4) a la primera recta f,(4, 4)/,/(4? + 2?) = 10/,/20 = 
= y5. 


Ejercicio 3.5 


Imagine dos polígonos convexos que se intersectan mutuamente. El área común 
a ambos es también un polígono convexo. Emplee los métodos mencionados en este 
capítulo para calcular los vértices del nuevo polígono. 

Habiendo trabajo con la representación funcional de una recta, ¿qué tal si em- 
pleamos la forma paramétrica? Indicamos antes que esta forma consiste en dar las 
coordenadas x e y de un punto cualquiera de la curva en función de un(os) pará- 
metro(s) (que pueden ser las propias coordenadas x e y), junto con su rango de 
variación. Pero ya hemos visto la forma paramétrica de una recta: es simplemente 
la representación como base y dirección. 


b+ ud =(x,, y1) + (xa, y2) 


=(XxX1 +FAXX2Y1 FAX) con —o<pu<o0 
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H es el parámetro, y Xx; +1 Xx x2€ y; + 1 Xx y2 son las coordenadas x e y respec- 
tivamente de un punto de la recta (x, y) que dependen sólo de y. 

Podemos construir también representaciones funcionales y formas paramétricas 
para la mayoría de las curvas continuas. Por ejemplo, una sinusoide está dada por 
f(x, y) = y — sen(x) (representación funcional), y por (x,sen (x)) con —owo<x<ow0 
(forma paramétrica). Una sección cónica general (elipse, parábola o hipérbola) viene 
dada por la función 


fuay=axx*+bxy+hxxxy+fxx+gxy+c 


donde los coeficientes a, b, c, f. g, h definen una única curva. Una circunferencia 
centrada en el origen y de radio r tiene a=b=1,f=g=h=0 y c= —r?, y nos 
queda f(x, y) = x? + y? — r?. Todos los puntos (x, y) de la circunferencia cumplen 
f(x, y) = 0, los interiores del círculo son aquellos tales que f(x, y) < 0; correspon- 
dientemente, los exteriores hacen f(x, y) > 0. La forma paramétrica de la circunferen- 
cia es (rcos a, rsen a) donde O < a < 2x1. (Ya vimos anteriormente las formas para- 
métricas de la circunferencia, elipse y espiral en el capítulo 2.) 

Es muy útil experimentar con estos (y otros) conceptos en geometría bidimen- 
sional. Se presentarán muchas ocasiones donde sea necesario incluir estas ideas en 
algún programa, además de la necesidad siempre presente de generar datos para 
la construcción de diagramas. 


Ejemplo 3.5 


Suponga que deseamos dibujar una bola esférica (radio r) que desaparece dentro 
de un agujero elíptico (eje mayor a, eje menor b), véase la figura 3.6. Tanto la elipse 
como la esfera tienen zonas tapadas. 

Coloquemos la elipse centrada en el origen con el eje mayor horizontal, y el 
centro de la circunferencia a una distancia d sobre el origen. La representación fun- 
cional de la elipse es 


L6=>ja + yb" 1 
y en forma paramétrica 
(a x cosa, b x sin a) con0 < a < 2x1 
Para la circunferencia 
LISO — dr A 
y en forma paramétrica 
(rx cos/,d+rxsin2) donde 0<1<2x 


Para generar el dibujo debemos encontrar los puntos (x, y) comunes a la circun- 
ferencia y a la elipse (si los hay). Como demostración útil emplearemos ambas re- 
presentaciones en la búsqueda de la solución (representación funcional para el círculo 
y paramétrica para la elipse). 
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Así que buscamos los puntos (x, y) = (a Xcos a, b x sen a) de la elipse, que también 
satisfacen f.(x, y) = 0. O sea 


a? x costa + (bx sina — d? —-r?=0 


y a? xcosta+b?xsinta—-2xbxdxsina+d—r=0 
Y como cos? a =1 — sen? a 
(0? — a?) xsinta—2xbxdxsina+ a+ d—-r?=0 


Esta ecuación es una cuadrática cuya incógnita es sen a, que se puede resolver 
fácilmente (la ecuación cuadrática Ax? + Bx + C = 0 tiene dos raíces (—B + /(B? — 
=4x Ax C)/(Q x A4)). Para cada valor de sen « podemos encontrar valores para a 
dentro del rango 0 < a < 2r (si existe) y los puntos de intersección (a x cos a,b x 
x sen a). 

No existe una regla exacta y rápida que nos indique cuál representación es la 
más idónea para una situación dada: se precisa un sexto sentido que sólo se logra 
con la experiencia. 


Ejercicio 3.6 


Escriba un programa que dibuje la figura 3.6. 
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Programas completos 


I. “rutl” y el listado 3.1: no precisa datos de entrada. 
II. Listados 2.1, 2.8 y 3.2: los datos de entrada son los dos pares de coordenadas 
(X1, Y1) y (X2, Y2), donde —-3 < X1,X2 < 3 y -2.1 < Y1, Y2 < 2.1. 
Nota: desde este punto, el listado 3.3 “recorte” (clip) y una nueva versión de 
“trazalineas” (lineto) sustituirá el listado 2.5 en “rut1”. 
III. Lo mismo que en lÍ, pero con la nueva “rutl1”: cambie HORIZ a 1.5 y VERT 
al. 
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Representación matricial 
de las transformaciones 
en el espacio bidimensional 


En el capítulo 2 contemplamos la necesidad de mover por la pantalla los dibujos 
de los objetos. En vez de cambiar continuamente el sistema de coordenadas de la 
pantalla, es mucho más fácil desde el punto de vista conceptual definir el objeto en 
su forma más sencilla (dando sus vértices como pixels o como valores de sus coor- 
denadas, junto con la información adicional necesaria para el trazado de las líneas 
y superficies correspondientes a los vértices), y a continuación, trasladar dicho objeto 
a la pantalla en la posición que nos interese dejando el sistema de coordenadas 
fijo. De todas las transformaciones posibles, restringiremos nuestra actuación a las 
del tipo lineal (si no conoce el concepto de transformaciones lineales, espérese unas 
líneas y lo definiremos). A menudo tendremos que transformar un conjunto grande 
de vértices y la manera más eficiente de hacer los cálculos es mediante el empleo 
de matrices. 

Antes de tratar la representación matricial de las transformaciones, deberíamos 
explicar lo que entendemos por matriz, y también por vector columna. En particular, 
trabajaremos con matrices cuadradas; 3 x 3 para el estudio en dos dimensiones, 
y de 4 x 4 cuando consideramos el espacio tridimensional. Una matriz 3 x 3 (por 
ejemplo 4) es simplemente un conjunto de números reales que, por comodidad, agru- 
pamos en un bloque de 3 filas y 3 columnas; un vector columna (por ejemplo D) 
es un conjunto de números colocados en una columna con 3 filas. 


Ar 4Ar2 Arz D, 
Áz1 -Az2 Az3 | y D, 
ÁA31 4A32 4A33 D; 
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Un elemento cualquiera de la matriz A se representa comúnmente por 4;;, el pri- 
mer subíndice (i) nos dice que el elemento se encuentra sobre la ¡-ésima fila, y el 
segundo (j) que pertenece a la j-ésima columna (por ejemplo, el elemento A), re- 
presenta al número colocado en la segunda fila y en la tercera columna). De una 
forma similar D, representa el elemento de la fila ¡i-ésima de un vector columna. 
Cuando trabajemos con matrices y vectores columna, estos subíndices serán calculados 
y obtendremos sus valores numéricos mediante expresiones enteras. Es importante 
señalar que la información que nos proporciona una matriz o vector columna, está 
tanto en los valores de sus elementos, como en el orden y posición en que están 
colocados. En un programa BASIC (como en cualquier otro lenguaje de ordenadores), 
las sentencias se escriben en una línea sin permitirse el uso de subíndices ni super- 
índices, y por tanto las matrices y vectores se implementan como arrays* y los va- 
lores de los subíndices aparecen entre paréntesis detrás del identificador del array 
(así, A¡¡se representará como Ali, j)). 

Existe la suma de matrices. La matriz C = 4 + B(C es la matriz suma de las 
matrices A y B) se define por su término general C;; como 


También podemos multiplicar una matriz A por un escalar k y el resultado será 
otra matriz B definida por 


Podemos, asimismo, multiplicar una matriz A por un vector columna D y obtene- 
mos como resultado otro vector columna E, como 


E; = Aj xD¡+ Aj xD + Aja x D¿ = Y An xD, donde LSTEJ 
k 


El elemento de la ¡-ésima fila del nuevo vector columna es la suma de los pro- 
ductos de los elementos correspondientes de la fila ¡-ésima de la matriz con los del vector 
columna. 

Más aún, podemos calcular el producto (matricial) C = A x B de dos matrices 
A y B. 


Ci = An Xx Bi¡+ Aja x Ba + Aja x B3j= Y) An x Bi donde 1<i,)pj<3 
k 


Tomamos la suma (ordenada) de los elementos de la ¡j-ésima fila de la primera 
matriz multiplicados por los elementos de la ¡j-ésima columna de la segunda. Para 


* N. del T: Hemos preferido en este capítulo mantener la palabra inglesa “array” debido 
a su uso común en la jerga informática, en lugar de su traducción como “arreglo”, “vector” 
o “matriz” que podrían inducir a error. 
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quien no esté familiarizado con el cálculo matricial, puede resultar extraño que 
AxBzxBx 4, en general (¡el producto de matrices no es conmutativo!). Por ejemplo 


010 001 010 001 010 10090 
001|x|0o10|=[1 00] perolo10]|x|001|=|00 1 
100 100 001 100 100 010 


Experimente con estas ideas hasta que tenga la suficiente soltura para emplearlas 
en la teoría que sigue a continuación. Para aquellos que deseen más detalles sobre 
la teoría de matrices, podrán encontrarla en cualquier libro de álgebra elemental. 

Existe una matriz especial conocida como la matriz identidad 1 (también denomi- 
nada matriz unidad). 


100 
I=|010 
001 


También podemos calcular el determinante de una matriz: det (4) 


det (4) = 411 (422 x A33 — 423 Xx A32) + 412 x (423 x A31 — 421 x 433) 
+ Aj3 Xx (421 x A32 — 422  Az1) 


Si el determinante de una matriz es cero, entonces se dice que la matriz es sin- 
gular, siendo no singular en caso contrario. Todas las matrices no singulares tienen 
su matriz inversa A7*, que cumple las condiciones A x 47* = 47! x A = 1. Existen 
varios métodos para calcular la inversa de una matriz: en el capítulo 7 (listado 7.5) 
damos un programa que lo realiza por el método de los Adjuntos. 

Apliquemos lo anterior a la transformación de puntos en el espacio. Sea un punto 
(x, y) —“antes”— que se transforma en el (x”, y") —“después”—. Definimos com- 
pletamente la transformación si podemos expresar las ecuaciones que relacionan los 
puntos “antes” y “después”. Una transformación lineal es aquella en que los puntos 
“después” pueden expresarse como combinación lineal de las coordenadas del punto 
“antes”; o sea, las ecuaciones sólo contienen términos proporcionales a x e y, y algún 
sumando constante —no incluye ni productos de x por y, ni exponentes de x e y 
distintos de 1, ni otras variables—. Este tipo de ecuaciones pueden escribirse 


XY=Aj xx+4A12 Xx y+4s15 
y =A72 xx+Az22 xy + 423 
Las constantes 4;¿son los llamados coeficientes de la ecuación. Como puede verse, 


el resultado de la transformación es una combinación de múltiplos de x, y y de 
la unidad. Por otra parte, podemos añadir otra ecuación 


l=4A3, xx+ 4A32 Xx y + A33 


Para que se cumpla para cualquier valor de x e y, tendremos que asignar los 
siguientes valores: 43, = 43, = 0 y 433 = 1. El añadir esta nueva ecuación podría 
parecer, a primera vista, un barroquismo inútil; no es este el caso, ya veremos 
que es de gran utilidad, cuando la utilicemos. Vamos a representar el vector corres- 
pondiente a un punto (x, y) (también denominado vector fila por razones obvias) 
en forma de un vector columna de tres dimensiones: S 


Xx 


y 
1 


Al expresarlo de esta forma, las tres ecuaciones anteriores pueden expresarse como 
el producto de una matriz por un vector columna 


x' Al Arz Ara Xx 
y ]=|42 422 Az3|x| y 
1 Á31 Az2 4Az33 1/ 


de forma que si representamos la transformación por una matriz, podremos trans- 
formar el punto deseado (representado como vector columna) premultiplicándolo por 
la matriz. 

Muchos autores de libros sobre gráficos realizados con ordenador no son parti- 
darios del empleo de vectores columna ya que prefieren extender el vector fila (por 
ejemplo (x, y) > (x, y, 1)), y multiplicarlo por la derecha quedando las ecuaciones 
anteriores en forma matricial como 


A11 4Az21 Aza 
(,y,1)=(x%,y,1) x| 412 422 432 
A13 4A23 Az33 


Observe que esta matriz es la transpuesta de la matriz de coeficientes de las 
ecuaciones. Este hecho puede inducir a frecuentes errores entre aquellos que no posean 
suficiente soltura en el empleo de matrices. Por esta razón en el libro mantenemos 
la notación en forma de vectores columna. Conforme se familiarice con el trato con 
las matrices sería una buena idea traducir algunas (o todas) de las transformaciones 
siguientes a la otra notación. No importa el método que emplee en tanto que sea 
consistente. (La matriz B transpuesta de otra A está dada por B;¡= Aj; donde 
l < ij < 3.) 


Combinación de transformaciones 


Una propiedad interesante de la representación matricial de las transformaciones 
es que si queremos combinar dos transformaciones (primero una dada por la matriz A 
y a continuación otra dada por la matriz B, por ejemplo), la transformación total 
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tiene una matriz asociada C = B x A: observe el orden del producto, la matriz de 
la primera transformación está multiplicada por la izquierda por la de la segunda. 
El origen de este orden es que la matriz C se utilizará multiplicándola por el vector 
columna, así que la primera matriz deberá estar a la derecha y la última a la izquierda. 
(Si hubiéramos empleado el método del vector fila, entonces el producto hubiera apa- 
recido en su orden natural de izquierda a derecha; éste es el precio que tenemos 
que pagar por la identificación de la matriz de transformación con los coeficientes 
de la ecuación.) 

Por tanto, tenemos que presentar la subrutina “mult2”, que realiza el producto de 
dos matrices. El lenguaje BASIC no permite el envío de matrices como parámetros 
a las subrutinas, de forma que tendremos que inventar un sistema eficiente para 
copiarlas considerando esta limitación. Supondremos que todos los productos se 
realizan entre las matrices A y R y el resultado es la matriz B, y después de cal- 
cular el producto, copiaremos B de nuevo en la R. Las razones para elegir estos 
identificadores y realizar la copia final se aclararán conforme vayamos avanzando. 
También necesitamos una subrutina (“idR2”), que da a R el valor de la matriz iden- 
tidad. Para formar el producto de una secuencia de matrices, primero hacemos R = I 
y asociamos cada una de las matrices (de derecha a izquierda) a la matriz A y 
llamamos a la subrutina “mult2”. Al final del proceso, R contendrá el producto de 
la secuencia de matrices (véase el listado 4.1). 


Listado 4.1 
: Es ESTA a q 
e 9100 REM mutiplicacion2 3 
9101 REM Datos de entrada A(3,73 - 
| ¿R(3,3) 
(DI 9102 REM Datos de salida R(3,.3) (2) 


| 9110 FOR I=1 TO 
| 9120 FOR J=1 TO 
e e. 91730 LET AR=0 120 
| 9140 FOR K=1 TO Z | 
| 9150 LET AR=SAR+AC(I,K)*R(K,J) | 
O 9160 NEXT K 1 Q 
9170 LET B(1,J)=AR 
9180 NEXT J | 
9190 NEXT 1 O 
9200 FOR I=1 TO 2 
210 FOR J=1 TOD Z 
9220 LET R(1,J)=B(1,J) ES 
O270 NEXT J 
9240 NEXT 1 O 
9250 RETURN 
9700 REM idR2 
9302 REM Datos de salida R(3,23 Da 


ld (y 
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e 9310 FOR I=1 TO Z O 
9320 FOR J=1 TO 3 
| 9330 LET R(1,0)=c 
) 9340 NEXT J o 
9350 LET R(1,1)=1 | 
9360 NEXT 1 - | 
) 9370 RETURN O 


L 1 - 1 ) 


Todas las transformaciones usuales pueden reducirse a una combinación de tres 
básicas (que además son lineales): traslación, escala y rotación alrededor del origen. 
También puede verse que todas las aplicaciones de estas transformaciones que sean 
válidas, nos proporcionan matrices no singulares. Las subrutinas que siguen generan 
una matriz denominada A para cada uno de los tres tipos de transformación, de 
forma que pueden emplearse junto con “mult2” para producir combinaciones de 
transformaciones. 


Traslación 


Un punto (x, y) “antes” se desplaza por medio de un vector (TX, TY) al (x', y”). 
Esto puede representarse por las ecuaciones 


xX=1xx+0xy+TX 
y =0xx+1xy+TY 


y por tanto la matriz que describe la transformación es 
10 TX 
ñ 1 rm 
001 
En el listado “tran2” se da una subrutina que genera dicha matriz A, dados los 


valores TX y TY. 


Listado 4.2 


O 9000 REM traslacion2 O 
39001 REM Datos de entrada TX, TY 
900% REM Datos de salida ACA, 3 


iS 9010 FOR I=1 TO 3 2 
9020 FOR J=1 TO 3 po 
a? 9070 LET A(1,J)=0 en 
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E 9040 NEXT J 
| 9000 LEFT ACI, 101 
O 9060 NEXT 1 
9070 LET A(1,20=TX: LET A(Z2,3)=T 
E 
O 9080 RETURN 


Transformación de escala 


La coordenada x de un punto del espacio queda multiplicada por un factor de 
escala SX, y, correspondientemente, la coordenada y por SY. Por tanto 


x=SXxx+0xy+0 

y =0xx+SYxy+0 
resultado la matriz 

SX0 0 

0 SYO 

0501 


Generalmente tanto SX como SY son positivas, pero si una o ambas son ne- 
gativas, esta transformación produce, además de un cambio de escala, una reflexión. 
En particular, si SX = —1 y SY = 1, entonces el punto obtenido es la reflexión del 
original a través del eje y. La subrutina “escala2” se encarga de crear la matriz A 
a partir de SX y SY (listado 4.3). 


Listado 4.3 
— + A o SON 
2 8900 REM escalaz O 
| 8901 REM Datos de entrada SX, SY 
8902 REM Datos de salida A(3, 7) 
ES a910 FOR l=1 TO 53 O 


i 
| | 8920 FOR J=1 TO 3 
| | 8930 LET A(1,3)=0 | 
mon 8940 NEXT J Es 
| E 8930 NEXT 1 i 

| 8960 LET A(1,1)=8X1 LET A(2,2)=5 
ES SA 
| 8970 LET A(3,3)=1 

8980 RETURN 
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Rotación alrededor del origen 


Si rotamos un punto en dirección contraria a las agujas del reloj (sentido de 
giro positivo) un ángulo O y tomando como centro de giro el origen, tenemos 


x" =c0s0 xx—sin0xy+0 


y =sin0xx+c0w0xy+0 
y la matriz resultante es 


cosO0 —sin0 O 
sin0 cosó 0 
0 0 1 


La subrutina “rot2” genera la matriz A dado el ángulo 0 (listado 4.4). 


Listado 4.4 


¡DN 8600 REM rotacion2 O 
| 8601 REM Datos de entrada THETA 
] 8602 REM Datos de salida A(3,7) 
Ci 8610 FOR l=1 TO 2 0) 
8620 FOR J=1 TO Z 
| 8630 LET A(1,J)=0 y 
«y 8640 NEXT J e 
| € 8630 NEXT 1 
ON 8660 LET A(CZ, 3)=1 
> 8670 LET CT=COS THETA: LET ST=SI | 
N THETA | 
e 8680 LET A(1,1)=CTs LET A(2,2)=C O | 
ar e 
38690 LET A(1,2)=-STi LET A(2,1)= 
(O) ¡ ST | 
l 8750 RETURN : y 


Transformaciones inversas 


Para cada una de las anteriores transformaciones, existe otra transformación, su 
inversa, que nos devuelve los puntos transformados a su posición original. Si una 
transformación está representada por la matriz 4, entonces su inversa viene repre- 
sentada por la matriz A7* (inversa de 4). No es preciso calcular la matriz inversa 
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usando el listado 7.5; podemos hallarla directamente por medio de los listados 4.2, 
4.3 y 4.4 empleando como parámetros de entrada otros derivados de la transfor- 
mación directa: 


1) Si una traslación viene dada por (TX, TY), su inversa es la traslación (— TX, — TY). 


2) Una transformación de escala (SX, SY) tiene como transformación inversa la de 
escalas (1/SX, 1/SY) (naturalmente, tanto SX como SY deben ser distintas de 0, 
en caso contrario el espacio bidimensional colapsaría a una recta o un punto). 


3) Una rotación de ángulo 0 se invierte mediante otra de ángulo —0. 


4) Si la matriz de transformación es el producto de otras elementales de traslación, 
escala y rotación, por ejemplo Ax Bx Cx..x Lx Mx oN, entonces la trans- 
formación inversa es 


NEC MES DAS ARO B RRA 


¡Fíjese en el orden de la multiplicación! 


La colocación de un objeto 


A menudo queremos colocar un objeto en varios puntos de la pantalla con orien- 
taciones arbitrarias. No sería muy eficiente calcular a mano las coordenadas de los 
vértices para cada posición del objeto e introducirlos en el programa. En lugar de eso, 
lo que haremos es definir un sistema arbitrario (pero fijo) de coordenadas, que lla- 
maremos el sistema ABSOLUTO. A continuación daremos las coordenadas de los 
vértices del objeto en alguna forma sencilla, generalmente con respecto al origen, que 
llamaremos la posición INICIAL. Los segmentos y áreas del objeto vendrán definidos 
en función de los vértices. Podemos utilizar las matrices de las transformaciones 
para mover el objeto desde la posición INICIAL a la ACTUAL en el sistema 
ABSOLUTO. Las líneas y superficies mantienen su relación con los vértices trans- 
formados. La matriz que relaciona las posiciones ACTUAL e INICIAL será deno- 
minada, a lo largo del resto del libro, matriz P (a veces le añadiremos una letra 
como subíndice para identificarla con respecto a otras matrices del mismo tipo). A 
causa de la restricción de no poder pasar matrices como parámetro a los subpro- 
gramas, no generaremos explícitamente la matriz P, sino que se empleará implícita- 
mente para actualizar la matriz R. 


Vistas del objeto 

Los objetos de una escena pueden moverse con respecto a los ejes del sistema 
de coordenadas ABSOLUTO. Con respecto al observador de la escena, supondremos 
que el ojo mira directamente al punto (DX, DY) del sistema ABSOLUTO y su 
cabeza está inclinada en un ángulo «. Sería conveniente suponer que está mirando 
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al origen y que la cabeza no está girada (a esta posición la denominaremos OBSER- 
VADA). Por tanto calcularemos otra matriz de forma que el ojo se mueva desde 
su posición ACTUAL a la OBSERVADA. A esta matriz (ACTUAL > OBSERVADA) 
la denominaremos matriz O y constará de una traslación de todos los puntos por un 
vector (—DX, — DY), matriz 4, y una rotación posterior de un ángulo —a«, matriz B 
(¡observe el signo menos!). Por tanto O = B x A, que es calculada por la subrutina 
“observación2” (listado 4.5). En general, no calcularemos la matriz O explícitamente, 
ya que sólo la usaremos para actualizar la matriz R; sin embargo, si es necesario 
usar varias veces los valores de la matriz, entonces puede resultar conveniente al- 
macenar O. 


Listado 4.5 


O 8200 REM Observacion2 O 
8210 INPUT "(DX,DY) "$DX3","3DY 
añ 8220 INFUT "ALFA "¿ALPHA 
U 8229 REM Fija la observacion al qe 
| punto (DX, DY) 
es 230 LET TX=-DX: LET TY==-DY 
21 8240 60 SUE tran2: 60 SUE mult2 qe, 
8249 REM Inclina la cabeza un an 
O: gulo ALFA radianes EE 
8250 LET THETA=-ALPHA y 
pres 8260 60 SUB rot2: 60-SUB mult2 | 
MES 8270 RETURN C 
ka 7 L 


Dibujando un objeto 


Combinando la matriz de transformación de INICIAL a ACTUAL, P, con la 
correspondiente al paso ACTUAL-OBSERVADA, O, obtenemos la matriz que nos 
pasa de INICIAL a OBSERVADA, R = O x P (siempre designaremos a esta matriz 
con el nombre R: y no olvide que el resultado de la subrutina “mult2” queda en 
la matriz R). Transformando todos los vértices de la posición INICIAL por medio 
de R, y simultáneamente con ellos las líneas y las superficies, logramos que las coor- 
denadas del objeto queden dadas con respecto a un observador que mire de frente 
hacia el origen del sistema de coordenadas ABSOLUTO, y que, de hecho, está mi- 
rando la pantalla. Por tanto, identificaremos el sistema de coordenadas ABSOLUTO 
con el de la pantalla para hallar la posición de los vértices sobre ella, y a continua- 
ción dibujaremos los vértices, líneas y superficies que constituyen el objeto. En la 
práctica, esto se consigue por medio de una subrutina de construcción que emplea 
la matriz R. Esta subrutina contendrá la información correspondiente a los vértices, 
líneas y superficies, a continuación la transformará por medio de la matriz R, y quizá 
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dibuje el objeto finalmente (véase el ejemplo 4.1 más adelante). Como luego veremos, 
existen situaciones donde es mucho más eficiente almacenar la información relativa 
a los vértices, líneas y superficies. Por ejemplo, las coordenadas de los vértices pueden 
almacenarse en los vectores (“arrays” con un subíndice) X e Y, y la información 
relativa a las líneas en una matriz L (“array” con dos subíndices). Los vértices pueden 
guardarse tanto en la posición INICIAL, como ACTUAL u OBSERVADA —real- 
mente depende el contexto del programa elegir una posición u otra—. Este método 
del paso de la posición INICIAL a la ACTUAL y de ella a la OBSERVADA, nos 
permitirá dibujar una serie de escenas en movimiento —los objetos pueden des- 
plazarse con respecto a los ejes ABSOLUTOS, y a ellos mismos; mientras que, simul- 
táneamente, el observador puede ir cambiando su punto y ángulo de visión indepen- 
dientemente del movimiento del objeto—. De todas formas, aunque el campo de posi- 
bilidades es muy amplio, empezaremos por el caso más sencillo: una escena fija. 


Dibujos complicados. El método modular 


Podemos dibujar alguna escena que contenga varios objetos similares. No hay 
necesidad de escribir una subrutina para cada uno de los objetos, lo que podemos 
hacer es calcular cada vez una nueva matriz de paso de INICIAL a OBSERVADA 
y meterla en la misma subrutina. Naturalmente, tendremos que escribir una subru- 
tina distinta de construcción para cada tipo distinto de objetos. El dibujo final se 
realizará por medio de la ejecución del subprograma “escena2”, que será llamada 
desde un programa principal estándar (listado 4.6). Este programa principal define 
simplemente las etiquetas de varios subprogramas, declara las variables dimensionadas 
(“arrays”), centra la zona gráfica, mediante petición de los valores HORIZ y VERT, 
y, por último, llama a “escena2”. 


Listado 4.6 


100 REM programa principal 
109 REM Define los identificado 
res para las rutinas de iniciali 
O zacion y dibujo 2-D ( 
110 LET start=9700: LET setorig 
in=9600: LET moveto=9500: LET 1i 
O neto=9400:+ LET clip=8400 
120 LET rot2=8600: LET angle=88 
00: LET scale2=8900: LET tran2=9 A 


O 000: LET mulit2=9100: LET idR2=97 MN 
00 | | 
o! E LET scene2=6000: LET look2= “O 
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E : 140 INFUT "HORIZ",HORIZ, "VERT", 
VERT 

O : 150 GO SUE start 
160 LET XMOVE=HORIZ*0,5%: LET YM 
| OVE=VERT*xO.5 

O 170 60 SUE setorigin 
179 REM Define la escena 

180 G0 SUE scenez 
04 190 STOF 


A AO 


“escena2” llama en primer lugar a “observación2” y genera la matriz O; si tenemos 
que dibujar más de un objeto, iremos almacenándolos. Para cada objeto individual 
(“módulo”) calculamos una matriz P y llamamos a la subrutina de construcción 
requerida usando la matriz R = Q x P. Todas las piezas forman al final el dibujo 
completo. Para diferenciar las matrices P y R de distintos objetos, le añadiremos 
un subíndice cuando sea necesario. 

Este sistema modular (construimos las piezas y luego las ensamblamos) puede que 
no sea el más eficiente para definir y realizar un dibujo; no obstante, desde el punto 
de vista de nuestra experiencia, es el que mejores resultados proporciona a los que 
empiezan, ya que les permite realizar las preguntas adecuadas para resolver el pro- 
blema de la construcción de una determinada escena. Aún más, cuando trabajemos 
con imágenes en movimiento, este método simplificará los problemas en escenas 
donde, no sólo hay objetos que se mueven entre sí, sino que también el observador 
está en movimiento. 

Por supuesto, si el observador mira de frente a la pantalla, entonces la matriz Q 
puede sustituirse por una llamada a “fijaorigen”, que cambia el sistema de coorde- 
nadas de la pantalla. Si además el ojo del observador mira al origen de coordena- 
das, entonces O es la matriz identidad 1; y por tanto la subrutina “observación2” no 
incluye ningún efecto y puede ignorarse. Por nuestra parte no supondremos eso 
y trabajaremos con la situación más general: una de las mejores cosas que puede 
hacer el lector es digerir los programas propuestos y tratar de optimizarlos para 
algunos casos particulares. Nuestra idea es explicar estos conceptos de la forma más 
general y directa posible, incluso a expensas de la eficiencia y velocidad del pro- 
grama. El lector puede volver a estos programas cuando comprenda y domine las 
ideas sobre las transformaciones del espacio. Más adelante daremos algunas pistas 
sobre cómo hacer estos cambios, pero de momento, si nos dedicáramos a la optimi- 
zación sólo, estaríamos metiendo arena en un engranaje que empieza a girar. 

Sin embargo, la razón de más peso para emplear este método modular se verá 
cuando dibujemos objetos tridimensionales. Definiremos las construcciones en tres 
dimensiones como una extensión de las ideas anteriores, y es absolutamente nece- 
sario tener un dominio completo de las transformaciones bidimensionales antes de 
continuar en espacios con más dimensiones. 
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Ejemplo 4.1 


Sea una sencilla nave espacial en su posición INICIAL apuntando hacia la direc- 
ción de las x positivas (o sea, formando un ángulo de O radianes con el semieje 
positivo x). La nave está definida por cinco segmentos que unen, por este orden, 
los puntos (3, 0), (0, 0), (— 1, 1), (2,0), (—1, —1) y de vuelta al (0,0). Vea la figura 4.1; 
que es la nave dibujada sobre una pantalla de 5 unidades por 3, donde la matriz 
INICIAL-ACTUAL es la identidad, y la ACTUAL-OBSERVADA es tal que el obser- 
vador mira de frente al punto (1,0). El listado 4.7 nos da la subrutina “escena2” 
necesaria para colocar el objeto en posición, y el listado 4.8 (“nave”) es la subrutina 
requerida para construir la nave. Observe que “nave”, que emplea la matriz R para 
transformar los vértices (y por tanto el objeto) a la posición OBSERVADA, no al- 
macena los valores de los vértices en esta posición en una base de datos permanente. 
En lugar de ello los valores se guardan en los “arrays” X e Y hasta que la subrutina 
devuelva el control al programa que la llamó, y si vuelve a ser ejecutada para 
dibujar otra nave espacial, entonces estos vectores son empleados para guardar los 
nuevos datos. 


Figura 4.1 
Listado 4.7 
! % 1 
Os £000 REM escena2/observacion2; O 
| nave (no almacenada) | | 
£010 DIM X(6): DIM Y(6) 
sE 6020 DIM A(3,3): DIM B(3,3)1 DIM | 
| 


R(3,3) 


Listado 4.8 


| 


Ejemplo 4.2 
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O 


O 


6030 LET ship = 4300 

6039 REM coloca al observador 
6040 60 SUB idRas 60 SUBE look2 
6049 REM define y dibuja el obje 


6050 60 SUE ship . 
6060 RETURN 


63500 REM nave/no almacenada 

6309 REM IN: K(3,.:3) 

6310 DATA 5101010 1, 112,0, =1,=1 
a a 

6320 RESTORE ship 

63530 FOR 1 = 1 TOÓó 

6339 REM lee las coordenadas del 
objeto INICIAL 

6540 READ XX, YY 

65349 REM mueve el objeto a la po 

sicion OBSERVADA 

6530 LET X(1) = XX*R(1,1) + YYxR 
(1,2) + R(1,3) 

6360 LET Y(1I) = XX*XR(2,1) + YYXR 
a A E, 

6370 NEXT 1 

6379 REM une los vertices por or 
den 


6380 LET XFT = X(1):2 LET YFT = Y 
(Dd: 60 SUE moveto 

6590 FOR 1 = 2 TO 6 

6600 LET XFT = X(1):3 LET YFT = Y 


(1): 60 SUB lineto 
6610 NEXT 1 
6620 RETURN 


Suponga que deseamos dibujar la figura 4.2, que incluye cuatro naves espaciales 
llamadas a), b), c) y d) en una pantalla de 60 x 40 unidades. Por sencillez supondremos 
que OQ es la matriz identidad (por esta vez, pase), de forma que el observador mira 


Figura 4.2 


de frente y su ojo apunta hacia el origen INICIAL. La nave a) está colocada en su 
posición INICIAL; esto es, R, = I, mientras que la b) se ha movido desde la posición 
INICIAL a la ACTUAL por medio de las siguientes transformaciones: 


1) cambio de escala con SX = 4 y SY = 2, resultando la matriz 4. 


2) rotación de la figura 1/6 radianes, matriz B. 


3) traslación con TX = 6 y TY = 4, matriz C. 


400 E A O 1.06 
A=|0 2 0| B=|1/2 y3p2 o| c=|o 1 4 
0-04 0 0 1 O: 


La transformación completa está dada por R,=0xP,=1IxP,=P,=Cx 
x Bx A (observe el orden en la multiplicación de las matrices, y que el subíndice 
indica que nos referimos a la nave b). 

Si hacemos el producto en el orden 4 x B x C (dando la matriz P¿), entonces 
obtenemos : 


111 


2/3 -1 6 2/3 -2 12/3-38 
P, =| 2 Jy3- 4] P, =|1 yY3 4/3 +6 
0 0. 1 > 


que son, obviamente, dos transformaciones distintas. La matriz R¿= 0 x P¿=1 x Pj 
produce la nave d). Observe cómo esta nave es asimétrica. Sea muy cauteloso con 
los cambios de escala —¡recuerde que se definen alrededor del origen y producirán 
distorsiones en la forma de un objeto que se haya movido del origen! 

Para ilustrar aún más este ejemplo veremos cómo se calcula la posición ACTUAL 
de la nave b) en la pantalla colocando las coordenadas en forma de vector columna 
y premultiplicándolo por la matriz R, = 1 x P,; por ejemplo, 


E O ON 
2 yY3 4|x|0|=]|10 etc. 
0 0 1 1 1 


Cuando volvemos a la forma vectorial normal vemos que los cinco vértices han 
sido convertidos en los (6,/3 + 6,10), (6, 4), (5 — 2//3, /3 + 2),(4,/3 + 6,8) y (7 — 
— 2,/3,2 — ,/3) respectivamente. 

La nave c) es la b) reflejada sobre la recta 3y = —4x — 9. Esta recta corta al 
eje y en el punto (0, 3) y forma un ángulo a = cos”! (— 3/5) = sen”! (4/5) = tan”? 
(—3/4) con el semieje x positivo. Si movemos el espacio según el vector (0, 3), ma- 
triz D, esta recta pasará por el origen. Más aún, si giramos el espacio: un ángulo 
—«, matriz E, la recta coincide con el eje x. La matriz F refleja la nave según el 
eje x, E”* devuelve a la recta la inclinación de ángulo «, y por último D”* coloca 
la recta en su posición original. La matriz G =D"*x ET"*'xF xEx0D nos dará 
los vértices ACTUALES de la nave b) reflejados en la recta 3y = —4x —9, y R.= 
=I xP. =G x P, puede emplearse para dibujar la nave c). Resumiendo, empleamos 
la matriz P, para mover la nave a la posición b) y a continuación por medio de G 
la colocamos en la posición c). 


1 0.0 3/5 4/5 0 1.0 0 
D=|0 1 3| E=|-4/5 —3/5 0| F=|0 -1 0 
0701 0 0 1 00 1 
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y [F48=14/3 7-25/3 210 
Re=>5 | 14-48/3 24+7/3 170 
0 0 25 


La figura 4.2 se dibuja con la nueva “escena2” (listado 4.9): observe que esta 
“escena2” no llama a “observación2”, ya que el ojo está mirando al origen y de 
frente. El programa principal y la subrutina “nave”, así como todas las otras subru- 
tinas gráficas, se mantienen sin cambios. 


Listado 4.9 
in pe Ei SS A 
| 20 6000 REM escenaz/sin observacio .. 
n23 4 naves (no almacenadas) Ed 
l 6010 DIM X(6): DIM Y(4) 
07 6020 DIM A(3F,3)4 DIM EC): DIM O 
| RT, 05) ' 
| | £030 LET ship = 6500 | 
EE 6074 REM nave a). O 
| | 60739 REM OBSERVADA= ACTUAL, no e 
| sa necesario llamar a "observacio , 
ee na" | O 
6040 60 SUB i¡dR2s 60 SUB ship 
6049 REM nave b). 
e 6050 LET SX = 41 LET SY = 2 O 
6060 60 SUE scalez: 60 SUE multa 
O 6070 LET THETA = FI/4 
NO: 6080 60 SUE rot2: 60 SUE multa O 
6090 LET TX = 61 LET TY = 4 
O! 6100 60 SUB tranzis 60 SUE multa 0) 
] 6110 60 SUE ship | 
6119 REM nave (Cd). | 
(e. 6120 LET AX = Gi LET AY = 4 O 
. 6130 GO SUB angle 
6140 LET TX = O LET TY = 3 : 
2 6150 60 SUB tran2s 60 SUB multa LA 
: 6160 LET THETA = -THETA 
| 6170 60 SUB rot: 60 SUE mult.2 
2 6180 LET SX = lí LET SY = -1 o 
: 6190 GO SUB scalezs 60 SUE multa 
| 6200 LET THETA = -THETA 
e 6210 60 SUBE rotas 60 SUB multi ] O 
| 6220 LET TX = Ox LET TY = 3 | 
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38 6230 60 SUB tran2: 60 SUE multz LN 
] 6240 60 SUB ship 
6249 (REM nave d). | 

Es 6250 60 SUB idRZ O 

6260 LET TX = 6: LET TY = 4 

| 6270 GO SUE tran2i 60 SUB muito Oo 

6280 LET THETA = FI/6 

| 


6290 60 SUE rot2: 60 SUB mult2 | 
O 6300 LET SX = 41 LET SY = ee 
6310 GO SUB scalez: 60 SUBE multi 
6320 60 SUE ship | 
O 67330 RETURN O | 


Ejercicio 4.1 


Con el fin de que se convenza de que este programa puede ser utilizado en el 
caso más general, debería ejecutarlo con valores DX, DY o «a distintos de 0, de forma 
que la matriz O (ACTUAL-OBSERVADA) no sea la matriz identidad. Su subrutina 
“escena2” debería llamar a “observación2” para calcular O, que debe almacenarse. 
A continuación se calcula la matriz P (INICIAL-ACTUAL) para cada objeto (que 
“mult2” colocará en R), se premultiplica por Q (copiándola en A para su uso por 
“mult2”) y finalmente se llama a la subrutina de construcción con la matriz R = Q x P. 
Asegúrese de que la subrutina “trazalíneas” contiene la opción “recorte” o se encon- 
trará con que el programa se detiene cuando intente dibujar fuera del rectángulo 
del área gráfica. 


Ejercicio 4.2 


Utilice las subrutinas anteriores para dibujar diagramas similares al de la figura 4.2, 
pero donde el número, la posición y la dirección de las naves sean datos a leer desde 
el teclado. Puede escribir subrutinas para dibujar objetos más elevados; elegimos un 
ejemplo muy sencillo para que los algoritmos no quedarán enmascarados por la com- 
plejidad de los objetos. El método anterior es aplicable a tantos vértices y líneas 
como el Spectrum pueda manejar con sus limitaciones de tiempo y espacio. Los 
objetos no tienen por qué ser solamente unos trazos, puede dibujar también áreas 
coloreadas (polígonos limitados por los vértices transformados). 


Ejercicio 4.3 
Empleando bucles (FOR .. NEXT) en el programa podemos dibujar secuencias 


ordenadas de objetos; por ejemplo, pueden tener la misma orientación pero con 
puntos de referencia (el origen en la posición INICIAL) igualmente espaciados a lo 
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largo de la línea p + q. Podemos crear un bucle con un parámetro de índice y 
y dibujar una nave para cada vuelta del bucle. Para cada valor de y podemos cam- 
biar los parámetros de la traslación de una forma continua dentro del bucle (usando y, 
py q). Los nuevos valores de estos parámetros se usan para calcular la correspon- 
diente matriz INICIAL-ACTUAL, y el objeto cambia a la nueva posición ACTUAL. 
Se emplea como siempre la matriz R=Q x P=I1x P para observar y dibujar 
cada objeto en la pantalla. Con estas ideas, construya un conjunto de formaciones 
de combate con la nave espacial de los ejemplos anteriores. 


Uso eficiente de las matrices 


Es obvio que en cualquier combinación de transformaciones que empleemos, la 
tercera fila de cualquier matriz será siempre (0 0 1). Si trabajamos con las otras 
dos filas solamente, las subrutinas serán mucho más rápidas. Mantenemos todavía 
matrices de 3 x 3 en lugar de 2 x 3 (que es lo que realmente necesitamos), ya que 
hemos escrito otras subrutinas que suponen que las matrices son 3 x 3. Intentar 
reDIMensionar las variables nos conduciría a errores de límites de dimensión en 
las subrutinas primeras —el coste de tres números reales innecesarios por matriz es 
un precio a pagar muy pequeño para correr el riesgo de sufrir numerosos errores—. 
Nótese también que, cuando DIMensionamos una variable, ésta es puesta a cero 
inmediatamente (consúltese el capítulo correspondiente a las variables indexadas (arrays) 
del Manual de BASIC del Spectrum). A continuación reescribimos los listados 4.1, 
4.2, 42 y 4.4 con los nuevos nombres 4.1a, 4.2a, 4.3a y 4.4a, respectivamente, para 
aplicar estas posibilidades. 


Listado 4.1a 


AA UA [qEKÁÁAÁÓÁAAAKá</ A AA AAA = A 
D 9100 REM muitiplicaciona Ol 
9101 REM Datos de entrada AC, 3) | 
R(3,:3) | 

, , 
O 9102 REM Datos de salida R(Z, 7 Ol 


| 
| 
| 9110 FOR I=1 TO 2 
8 9120 FOR J=1 TO Z 
9130 LET B(1,J)=A(I, 1)*R(1,J)+A( EE, 
1,2) HR (2D) 
o 9140 NEXT J 
| 
1 
1 


9150 LET B(1,3)=B(1,3)+4 (1,3) O 


9160 NEXT 1 
9170 FOR J=1 TO 2 


| | 

9180 LET R(1,3)=B(1,3)1 LET RC, EN 

J)=B(2,J) | | 

O 9190 NEXT J | | 
) 9200 RETURN O 


de 9300 REM identidadR2 s 
' 9302 REM Datos de salida R(3,7) 
a) 9310 DIM R(3,3) 
9320 LET R(1,1)=1s3 LET R(2,2)=*=14 
LET R(3,3)=1 
a 93ITO RETURN : 
AE AS is 
Listado 4.2a 
AAA 2-2 2 KÁ E a 
MER 9000 REM translacion2 e 
: 9001 REM Datos de entrada TX, TY 
ee 9002 REM Datos de salida A(3,3) 
Wide 9010 DIM A(3,7) €: 
| 9020 LET A(1,1)=11 LET A(2,2)=1 
| 9030 LET A(1,3)=TX: LET A(2,3)=T 
| 2) y á O 
| | 9040 RETURN 
L 
Listado 4.3a 
O 8900 REM escala2 
8901 REM Datos de entrada 5X,5Y 
a 8902 REM Datos de salida A(3,3) 
LA 8910 DIM A(3,73) ( 
| | 8920 LET A(1,1)=SX: LET A(2,2)=8 
A Y 
OS 8930 RETURN ( 
L A A E - 
Listado 4.4a 
A - En 
H8 8600 REM rotacion2 O 
8601 REM Datos de entrada THETA 
8602 REM Datos de salida A(3,7) ¡ 
2 8610 DIM A(3,7) O 
8620 LET CT=C0S THETA: LET ST=S1 
e N THETA ' 
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86:30 LET A(1,1)=C0T+* LET A(2,2)=C 
7 
) 
8640 LET A(1,22=-ST8 LET A(2,1)= 
ST | 
) 8630 RETURN ñ 


La construcción de la figura 4.2 puede parecer algo académica al ser elegida 
la posición de los objetos de una forma arbitraria. Por el contrario, en la mayoría 
de los diagramas las posiciones de los objetos están perfectamente definidas, estando 
los valores fijados implícitamente por el diagrama requerido. Vea el ejemplo siguiente. 


Ejemplo 4.3 


Escriba un programa que dibuje una elipse de eje mayor A, eje menor B y cen- 
trada en el punto (CX, CY). El eje mayor forma un ángulo 0 con el semieje x 
positivo. El orden de las transformaciones es importante: primero gire y luego des- 
place. Si lo que queremos es dibujar elipses con el eje mayor horizontal, entonces 
no tenemos por qué emplear matrices, podemos seguir con la subrutina del ejercicio 2.5 
con ideas similares a las del listado 2.11a. El listado 4.10 ofrece una subrutina 
“escena2” que lee los datos necesarios para la construcción de la elipse, calcula la 
matriz INICIAL-OBSERVADA y llama a la subrutina de construcción “elipse” que 
dibuja la elipse. 


Listado 4.10 


A a Be 
O! £000 REM escena2/elipse | O 
£6010 DIM A(3,3): DIM B(3,3): DIM : 
R(3,3) : 

o) £6020 LET ellipse=4500 PO 


6030 INPUT "(0X.UY) "10X5","f0Y, 
,"A "503",B "5B3",TETA "3THETA 
] £040 LET THETA=-THETA O 
: 6049 REM Elipse centrada en (CX, 
CY) e inclimada un angulo TETA 
O £6050 GO SUB idR2 O 
£060 GO SUB rot2: GO SUB mult2 
6070 LET TX=CX: LET TY=CY | 
£080 GO SUB tran2: GO SUB mult2 O 
£090 GO SUB ellipse 
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6100 RETURN | 
Y 6300 REM elipse ro 
65 sol REM Datos de entrada A,B,RK( ES: 
| 
O 2509 REM Eje mayor de la elipse | O 
A, eje menor B 


| 6510 LET XFT=A*R(1, 1+R (1,3) 
O) 6520 LET YPT=AXR(2, 1)+R(2,7) pi 


| 6530 GO SUB moveto 

| 6540 LET ALFHA=04+ LET ADIFF=F1/1 
O 00 ME 

6549 REM Calcula los puntos (XFT 

: ¿ YET) de la elipse en la posicio 
O nnobservada O 

' 6550 FOR I=1 TO 200 | 
O 6560 LET ALFHA=ALFHA+ADIFF 0 


¡ 6570 LET AA=A*COS ALFHA: LET ER= 
EXSIN ALFHA | 
6! 6580 LET XFT=AA*XR (1, 1) +BBxR(1,2) - 
| 


+R(1,3) pS 
6590 LET YET=AARXR(Z, 1) +EBAR(Z, 2 
O +R(2,3) 
6600 GO SUB lineto 
6610 NEXT 1 
0) 6620 RETURN 


Ejercicio 4.4 


Escriba una subrutina para dibujar un objeto individual (en este caso un astroide 
como el mostrado en la figura 4.3a) capaz de ser transformado por medio de ma- 
trices. A continuación dibuje combinaciones del objeto empleando las técnicas de 
transformación matricial descritas anteriormente (como, por ejemplo, en la figura 4.3b). 
Un astroide es una curva cerrada cuya expresión en forma paramétrica es (R cos? 0/ 
sen? 9) donde O < O < 2x, siendo R el radio (la distancia máxima desde el centro de 
la figura). Los parámetros que precisa esta subrutina son el radio del astroide y la 
matriz de transformación. La figura 4.3b es la combinación de gran cantidad de dos 
tipos de astroides: el primero de radio unidad y sin girar, y el segundo de radio ,/2 
y rotado 7/4 radianes. 


Ejercicio 4.5 


Haga experimentos con estas técnicas matriciales. Escriba una subrutina que ge- 
nere la matriz necesaria para girar puntos en el espacio un ángulo O alrededor de 
un punto arbitrario (x, y) del espacio (no necesariamente el origen). Escriba también 
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otra subrutina que genere la matriz necesaria para reflejar un punto sobre la recta 
ay = bx + c. (Utilice las ideas dadas en el ejemplo 4.2 para el trazado de la nave c).) 


Figura 4.3. 


Almacenamiento de información relativa a las escenas 


Como mencionamos anteriormente, nos encontraremos en ciertas situaciones donde 
precisaremos almacenar toda la información relativa a una escena en una gran base 
de datos. Constará de los vectores X e Y, de longitud mayor o igual a NOV, el 
número total de vértices a guardar. (Estos vértices pueden almacenarse tanto en la 
posición INICIAL, como en la ACTUAL o en la OBSERVADA: depende del con- 
texto del problema.) También necesitamos guardar la información relativa a las líneas 
en una matriz con dos dimensiones L cuyo primer índice es 1 ó 2, y el segundo 
un valor mayor o igual a NOL, el número total de líneas de la escena. La I-ésima 
línea une los vértices dados por L(1,I) con L(2,I): por tanto la información es in- 
dependiente de la posición, simplemente indica cuáles vértices están unidos por el 
segmento I-ésimo. NOV y NOL toman sus valores iniciales en la subrutina “escena2” 
y van siendo incrementados por las subrutinas de construcción. 

Siguiendo este método ya no es necesario diseñar y escribir las subrutinas de 
construcción que dibujen las líneas, sólo las empleamos para crear la base de datos 
de líneas, vértices, etc. (transformada por medio de la matriz R). Después de que 
“escena2” haya montado la escena completa en memoria, llama a otra subrutina 
(“dibujo”), que dibuja la imagen final. La subrutina “escena2” será muy parecida a 
la mencionada anteriormente; por ejemplo, el subprograma para dibujar la figura 4.2 
por este nuevo sistema es el mismo del listado 4.9, con los tres pequeños cambios 
siguientes: 
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O! £010 DIM X(20): DIM Y(20)3 DIML 
| (2,20) : 
O! 6030 LET NOV = 0: LET NOL = 0: L O 
ET ship = 6500: LET drawit = 700 
o 
O O 


| | 67330 GO SUB drawit:z RETURN 


e $ - ¡€_I AX A 


Esta subrutina junto con el listado 4.11 (subrutina de construcción de la nave, 
que sólo inicializa los datos) y la subrutina “dibujo” realizarán el gráfico de la fi- 
gura 4.2 por este método de almacenamiento. 


Listado 4.11 


A > A 
5 63500 REM nave/almacen. datos O 
63501 REM Datos de entrada NOV, NO 
La RC 3) X (NOV) y Y (NOV) 
(DN 6302 REM Datos de salida NOV, NOL Bs 


» X (NOV) , Y (NOV), L (2, NOL.) 
6510 DATA 3,0,0,0,-1,1,2,0,-1,-1 
O 0 A: A E PR 
6320 RESTORE ship 
6330 LET NV=NOV 
3 6331 REM Lee los vertices y los O 
coloca en posicion usando la mat 
ria R 
O 6540 FOR I=1 TO 5 ¡ O 
63550 READ XX, YY 

65360 LET NOV=MOV+1 
O, 6570 LET X(NOV)=XX*R (1, 1) +YYx*R(1 O 
23 +HR (1,3) 
63580 LET Y (NOV) =XX*R (2, 1) +YYX*R (2 
¿2)+R(2,3) O 
y 6590 NEXT 1 
! 63591 REM Lee y almacena la linea O 
de informacion 

| 

! 

| 

| 

| 


O 


6600 FOR I=1 TO 5 
ó6b10 READ L1,L2 O 
6620 LET NOL=NOL+1 
6630 LET L (1, NOL)=L1+NV: LET LC2 ' 
y NOL.) =L_24+NY : 
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6640 NEXT 1 


| 
66350 RETURN : 
O O 
7000 REM dibujo ] 
O 7001 REM Datos de entrada NOL.,X( : 
| NOV) , Y (NOV) ,L. (2, NOL.) 1 O 
7009 REM Traza rectas uniendo pa 
ae res de vertices "O 
| 


7010 FOR l=1 TO NOL 

7020 LET Li=L (1,1): LET L2=L (2,1 

) 

7030 LET XPT=X(L1): LET YPT=Y(L1 od 

12 60 SUE moveto ' 

7040 LET XFT=X(L2): LET YFT=Y(L2 Eo 

2: GO SUE lineto 

| 7050 NEXT 1 | 

OS 7060 RETURN No 
EA / IRA OS 


Suponga que deseamos representar distintas vistas de la misma escena (de nuevo 
emplearemos la figura 4.2 como ejemplo); esto es, las mismas matrices P (INI- 
CIAL > ACTUAL), pero distintas matrices O (ACTUAL > OBSERVADA). La so- 
lución evidente es crear una base de datos para la escena que contenga los vértices 
en la posición ACTUAL. Para cada nueva posición OBSERVADA, calcularemos la 
matriz Q correspondiente y la mandaremos a otra subrutina “dibujo” (vea el lis- 
tado 4.12, distinto del 4.11), que transfiere cada vértice desde su posición ACTUAL 
a la OBSERVADA por medio de O, los almacena en los vectores V y W, y los re- 
cupera cuando los necesite para dibujarlos. Cuando use este método para construir 
distintas vistas de la figura 4.2, solamente las subrutinas “escena2” y “dibujo” di- 
fieren de las anteriores, y aun así, muy ligeramente. Las presentamos en el listado 4.12. 


Listado 4.12 


Maó! HT S T 
DN 6000 REM escena2/ observacion2 v tr O 
ariablej 4 naves (almacenadas) 

: - 6009 REM Construye 4 naves almac 
ES. enadas en la posicion ACTUAL 

: 6010 DIM X(20):2 DIM Y(20):3 DIM Y 

(20: DIM W(20)3 DIM L (2,20) 

i 6020 DIM A(3,3)2 DIM B(3,3): DIM 

R(3,3) 

| 60730 LET ship=6500: LET drawit=7 

l 000 

6079 REM Nave a) 
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6040 LET NOV=0: LET NOL=0: GO SU 
B idR2: GO SUB ship 
6049 REM Nave b) 
6050 LET SX=4: LET SY=2 
6060 GO SUB scale2: GO SUB mult2 
6070 LET THETA=PI/6 : 
6080 GO SUB rot2: GO SUB mult2 
6090 LET TX=6: LET TY=4 
6100 GO SUB tran2: GO SUB mult2 
6110 GO SUB ship 
6119 REM Nave c) 
6120 LET AX=-3: LET AY=4 
6130 GO SUB angle 
6140 LET TX=0: LET TY=3 
6150 GO SUB tran2: GO SUB mult2 
6160 LET THETA=-THETA 
6170 GO SUB rot2: GO SUB mult2 
6180 LET SX=1i: LET SY=-1 
6190 GO SUB scale2: GO SUB mult2 
6200 LET THETA=-THETA 
6210 GO SUB rot2: GO SUB mult2 
6220 LET TX=0: LET TY=-3 
6230 GO SUB tran2: GO SUB mult2 
6240 GO SUB ship 
6249 REM Nave d) 
6250 GO SUB idR2 
6260 LET TX=6: LET TY=4 
6270 GO SUB tran2: GO SUB mult2 
6280 LET THETA=PI/6 
6290 GO SUB rot2: GO SUB mult2 
6300 LET SX=4: LET SY=2 
6310 GO SUB scale2: GO SUB mult2 
6320 GO SUB ship 
6329 REM Bucle para los puntos d 
e observacion 

30 GO SUB idR2: GO SUB look2 
6340 CLS : GO SUB drawit 

6330 60 TO 6330 

6360 RETURN 


7000 REM dibujo/transforma posica 
ion ACTUAL a OBSERVADA y dibuja 
7001 REM Datos de entrada NOV, NO 
LR, 3) X (NOV) y L (2, NOL.) 

7009 REM Transforma los vertices 


de la posicion ACTUAL a la OBSE:- 
O RVADA qe 

| 7010 FOR I=i TO NOV 
7020 LET V(T)=X(1I)XR(1, 1)+Y(1)*R 


O (1,2)+R(1,3) pa 
7030 LET W(I)=X(I)XR(2, 1)+Y(1)%R | 
E (2,2) +R(2,7) O 


7040 NEXT 1 
7049 REM Traza rectas uniendo pa 
$ res de vertices O 
7050 FOR I=1 TO NOL Ñ 
7060 LET Li=sL (1,1): LET L2=L (2, 1 
) ) DO 
7070 LET XFT=V(L1):2 LET YFT=W(L1 
€ 


)¿ GO SUE moveto 
) 7080 LET XFT=V(L2)2 LET YEFT=W(L2 O 
33 GO SUB lineto 

7090 NEXT 1 

7100 RETURN 


Ejercicio 4.6 


Construya una escena en movimiento. En cada nueva vista las naves se moverán 
unas con respecto a otras de alguna manera perfectamente definida. El observador 
debería moverse de alguna forma sencilla; por ejemplo, el ojo comienza mirando al 
origen, cinco vistas más tarde está mirando al punto (10, 10), y en cada vista la ca- 
beza se gira un ángulo de 0.1 radianes con respecto a la posición anterior. No es 
necesario que introduzca los valores de (DX, DY) y ALPHA por el teclado en “obser- 
vación3”, en lugar de ello, el programa debería calcularlos. Después de que haya 
leído el capítulo 13 podrá colocar en memoria estas cinco figuras y recuperarlas 
como una “película” (si tiene la máquina de 48K). 


Ejercicio 4.7 


Construya una escena que sea una vista esquemática de una habitación de su 
casa —con bocetos bidimensionales de mesas, sillas, etc., colocados en la habitación—. 
Cada tipo de objeto tendrá su propia subrutina de construcción, y el subprograma 
“escena2” debería leer los datos para colocarlos en la habitación. Una vez la escena 
esté completa, genere varias vistas, mirando desde varios puntos y con distintas orien- 
taciones. 
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También puede dibujar un mapa con segmentos rectilíneos, y de nuevo verlo 
desde varias orientaciones. ¡El número de posibles escenas que puede elegir es enorme! 

Como empleamos la opción “recorte” en “trazalíneas” podemos elegir valores pe- 
queños para HORIZ y VERT, que producen el efecto de ampliar (como con un 
zoom) los detalles de una escena, mientras que todas las líneas que se salgan de la 
pantalla serán eliminadas. . 


Programas completos 


Agrupamos los listados 3.4, “ángulo” (angle); 4.1a, “multiplicación2” e “idR2” 
(mult2 e idR2); 4.2a, “traslación” (tran2); 4.3a, “escala2” (scale2); 4.4a, “rotación2” 
(rot2); 4.5, “observación2” (look2) y 4.6, “programa principal” (main program) bajo 
el título “rut2”. 


IL  “rutl”, “rut2”, listados 4.7, “escena2” (scene2) y 4.8, “nave” (ship). Datos re- 
queridos: HORIZ, VERT, DX, DY y ALPHA. Pruebe con 8,5, 1, 1,0.5. Man- 
tenga fijos cuatro de éstos y haga pequeños cambios, de una forma sistemática, 
en el otro. 

IL. “rutl”, “rut2”, listado 4.9, “escena2” y 4.8, “nave”. Datos requeridos: HORIZ 
y VERT. Pruebe con 30, 20; 200, 200; 200, 150. 

MM. “rut1”, “rut2”, listados 4.10, “escena2/elipse”. Datos requeridos: HORIZ, VERT, 
CX, A, B, THETA. Pruebe con 30, 20, 0,0,12,9,0. De nuevo deje fijos todos 
menos uno y cámbielo de una forma sistemática. 

IV. “rutl”, “rut2”, listados 4.9 (“escena2” corregido según el texto) y 4.11, “nave” 
y “dibujo”. Datos requeridos: como para II. 

V. “rutl”, “rut2”, listados 4.11 (“nave”, pero sin “dibujo”) y 4.12, “escena2” y “di- 
bujo”. Datos requeridos: HORIZ, VERT, DX, DY, ALPHA. Pruebe con 60, 
40, 0, 0, 0. Cambie cada uno de los valores por turno de una forma sistemática. 
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Gráficos con caracteres 
en el ZX Spectrum 


En el capítulo primero (listado 1.2) vimos cómo podía generarse un pequeño 
bloque o carácter, a través de ocho números binarios. Este bloque de 8 x 8 pixels 
es denominado un bloque carácter. El Spectrum tiene definidos tres tipos de carac- 
teres: el conjunto de 96 caracteres estándar, los 16 bloques gráficos y el conjunto 
de 21 caracteres definidos por el usuario. Para tener acceso desde teclado a los dos 
últimos tipos debemos estar trabajando en modo gráfico. Estos caracteres son llevados 
a la pantalla por medio de la instrucción PRINT, de forma que deberíamos echar 
un vistazo a esta operación antes de seguir. 

El comando PRINT nos permite colocar los caracteres en cualquiera de las 22 lí- 
neas superiores de la pantalla, desde la superior (0) hasta la inferior (21), y, dentro 
de una de ellas, en cualquiera de sus 32 posiciones posibles desde la izquierda (0) 
hasta la derecha (31). Estos son los bloques carácter y cada uno tiéñe 8 líneas de 
8 pixels. Cada línea de ocho pixels se corresponde con un valor, guardado en una 
posición de memoria. Cada pixel, por su parte, se corresponde con un dígito binario 
(bit) de un número binario de ocho dígitos (byte). Este número puede representarse 
en forma decimal, estando su valor dentro del margen 0-255. En la memoria existe 
una tabla de caracteres. Para un carácter dado, el comando PRINT, o bien encuen- 
tra los ocho valores en la tabla o bien los calcula; a continuación los copia en 
las zonas de memoria reservadas para presentar la información. Este proceso es el 
que produce la presentación del carácter en la pantalla. 


El conjunto de caracteres estándar 
La tabla de datos necesaria para la traducción del juego de caracteres estándar 


está almacenada en ROM, la memoria permanente de sólo lectura (Read Only 
Memory). Hay ocho datos para cada uno de los 96 caracteres, por tanto la tabla 
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consiste en 768 (96*8) posiciones de memoria consecutivas, empezando en la 15616. 
Cada carácter tiene un número de código único (véase el Manual de BASIC del 
Spectrum). La tabla contiene los datos correspondientes a cada uno de los carac- 
teres, empezando con el espacio (código 32) y terminando con el símbolo de 
“copyright” (código 127). Cuando el comando PRINT necesita los ocho datos de 
un carácter, busca en la variable del sistema CHARS (véase, de: nuevo, el Manual 
de BASIC), que contiene la dirección de una posición de memoria 256 (ocho veces 
el código, por ahorro de espacio) menos que el principio de la tabla de caracteres. 
Para encontrar la dirección del primer dato, multiplica el número de código del 
carácter por ocho y lo suma al valor de CHARS. Por último PRINT copia el dato 
a la zona de memoria de presentación y el carácter aparece en la pantalla. 

Ejecute el siguiente programa, basado en el listado 1.2. Le enseñará el funciona- 
miento de este proceso mostrándole los cálculos realizados. En el capítulo 13 daremos 
una explicación detallada de cómo manejar un carácter en la zona de memoria de 
presentación, así que, de momento, continuaremos empleando el bloque (0, 0) sola- 
mente. La figura 5.1 es un ejemplo de lo que obtenemos del programa cuando le 
introducimos como dato el carácter “?”. 


Listado 5.1 
Lo! 10 CLS : INFUT "caracter 7"3A$ O 
¡ : 1F A$="" THEN GO TO 10 
poo co 20 LET A$=A$(1): FRINT AT 2,0; 
a nun Aagg 0" SELECCIONADO. CODIGO O 
| ("30$3")="3CODE As 
| 30 FRINT AT 4,05"CALCULO DE FO 
Mes SICION DE LOS DATOS" O 
| | 40 LET CHARS=PEEK 23606+236x*FE | 
A ER 23607 
CO 50 PRINT AT 6,3; "VARIABLE CHAR O 
| S=",CHARS 
: 60 LET TABLE=CODE A$*8 
O: 70 PRINT AT 7,3;"CODIGO A$ * 8 O 
| = "¿TABLE 
O! 80 LET START=CHARS+TABLE O 
E 90 PRINT AT 8,175 "=--——-- "FR 
| INT AT 9,2;"LOS DATOS EMPIEZAN E 
O! N "¿START O 
100 LET CORNER=167384: FRINT AT 
11,05"FOS. TABLA VALOR FOS. FA 
O NTALLA" O 
| 110 FOR I=0 TO 7 
120 LET VALUESPEEK (START+I): L 
eE ET MEMORY=CORNER+256*1 Ne, 
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130 FRINT AT 1+13,23START+13 FR e 
5 INT AT 1+173, 223 MEMORY q. 
140 FRINT AT 1+13, 1735 VALUE 
150 FOKE MEMORY, VALUE 
O 160 NEXT 1 O 
170 INFUT "OTRA VEZ 7? "3Y%$:2 1F 
Y$="n" THEN STOP 
O 180 GO TO 10 a 


MEE SELECELIOMNADE:  COIRTDSO 4 
CALECULO E POSIcIidan E Las 


LIA A TAE LE HAR 


UD TA OS 


CATOZ EMPIEZA 4 15364 
LALA DE PAMNTALLA 


E COP 
PRPRRRRARP 


0 -J +44 +3 007100 


TE) pe AOS E 


Figura 5.1 


Ejercicio 5.1 


Reforme el listado 5.1 de manera que le permita decidir si pasar un dato a la 
zona de presentación o no. Si alguno de los ocho valores es rechazado, teclee un 
nuevo valor. Experimente cambiando uno o dos valores de un carácter. 


El modo gráfico 


La dirección contenida en CHARS es donde se podría esperar que estuviera el 
primer dato correspondiente al carácter de código 0; sin embargo, los caracteres 
cuyo código está entre el O y el 31, ambos inclusive, son o bien caracteres de con- 
trol, o no se usan. Como los caracteres de control no tienen representación grá- 
fica, no existen datos para ellos en la tabla. A pesar de que CHARS indica su di- 
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rección, los 256 (32*8) bytes que les corresponden no se emplean, y están a nuestra 
disposición para otros usos. Más aún, si seleccionamos un carácter en modo gráfico 
para el listado 5.1, o bien aparecerá como blanco, o bien obtendremos unos datos 
totalmente espúreos. Esto ocurre porque la tabla sólo contiene los datos correspon- 
dientes a los caracteres con códigos desde el 32 al 127 y los caracteres gráficos 
tienen un código mayor que 127; por tanto el programa está buscando en un sitio 
equivocado, ¡más allá de la tabla de datos! La tabla en la ROM viene seguida 
por el comienzo de la RAM, memoria de acceso aleatorio de lectura y escritura 
(Random Access Memory), que se emplea como almacén temporal, y asi el programa 
está mirando la zona de display file, que ocupa los primeros 6K de la RAM. 


Gráficos de bloques 


Los datos necesarios para representar el conjunto de los gráficos de bloques no 
están guardados en la ROM, sino que se calculan a partir su código (CODE). Cada 
carácter gráfico tiene cuatro cuadrantes que se representan, como sí o no, por cada 
uno de los cuatro últimos bits del número de código. En un carácter gráfico, de 
bloques, las primeras cuatro lineas de ocho pixels son idénticas, y lo mismo ocurre 
con las cuatro segundas. 

Suponiendo que sabemos que un carácter pertenece al conjunto de los gráficos 
de bloques, podemos generar un par de datos y usarlos cuatro veces cada uno para 
crear el bloque. En la figura 5.2 tenemos un ejemplo de esto. 

El conjunto de gráficos de bloques puede emplearse para realizar gráficos de re- 
solución media con los 64 x 44 cuadrantes. Basándonos en esta idea podemos ela- 


pa Pl A E A (esla coa e RO 


A AAA cd Er ; 
m ELA 


MWALAIE EE 


mi 
dé 


REREERReI RA 
ad a 
Hpppapreppa 
PHRERHSARA 


hp pa 


Figura 5.2 
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borar imágenes en dos colores bastante complicadas con gran rapidez. La figura 5.3 
se dibujó por medio del programa dado en el listado 5.2. El programa dibuja una 
serie de círculos concéntricos pequeños en la subrutina “pixels gigantes”. Esta su- 
rutina nos pregunta por el bloque de carácter que estará en la posición, a lo largo 
de cinco bloques hacia abajo y ocho a la derecha, guarda los datos de la zona 
del display file en la matriz S. Para cada par de líneas, toma ocho datos y los con- 
vierte en una tira de números BINarios (véase la línea 1130 y siguientes). Estas 
tiras emplean para construir la representación BINaria del código de un carácter 
gráfico cogiendo un par de bits de cada tira y colocándole delante el código de 
carácter gráfico (linea 1230). 


Listado 5.2 


) 100 REM programa principal 
110 LET big pixels=1000 
5 120 FOR I=i TO 18 STEP 3: CIRCL 
em E 32,156,112 NEXT 1 
| 130 G0 SUB big pixels 
140 STOF 
1000 REM pixels gigantes 
1010 DIM F(8): DIM S5(40,8) 
O 1020 FOR l=1 TO 8: READ F(1I): NE 
XT li: DATA 128,64,232,16,8,4,2, 1 
1030 DEF FN S(R,C)=16384+ INT (R/ 


OD 8) *2048+(R-INT (R/B)*x8)*232+C 
1040 INFUT "EL ELOQUE 1Z0. SUP. 
ESTA EN FIL, COL "ROW" , "3 
2 HE COL. 


1049 REM Almacena los datos del 
fichero de pantalla en la matriz 


O S en bloques 38 
10590 FOR I=0 TO 4 
O 1060 FOR J=0 TO 7 


| 
| 1070 LET P=FN S(ROW+I,COL) 
1080 FOR k=0 TO 7 
o! 1090 LET S(I*XB+J+1,K+1)=FEEK (P+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


206% JT +) 
1100 NEXT Ki NEXT J: NEXT 1 


O 1109 REM Fija la pantalla a 20%3 
2 que es 4 veces el area a expan 
dir 

O 1110 RORDER 1: FAFER 73 INK Oz C 
LS 
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1120 FRINT AT 21,03 FAFER 13,4: 
FRINT AT 0,05 FAFER 14, 
1129 REM Toma dos lineas de elem o) 
entos de pantalla a la vez para 
convertirlas en un cuarto de blo 
que > O 
1130 FOR I=1 TO 239 STEF 2 
1140 LET A=l: LET E=Il+1 
1150 FOR J=1 TO 8 ES. 
] 1160 LET A$="00000000": LET B$=A 
$ 
| 
1170 LET T=S(A4,): LET U=S(E,J) 
1179 REM Calcula las formas bina 
rias de los elementos de pantall MO) 
a para el bloque jesimo 
1180 FOR KE=i TO 8 
O) 1190 1F To=F (E) THEN LET T=T-F( a 
EJ LET ARS(R)="1" 
1200 1F Us=F(*) THEN LET U=U-=F( 
O EJ LET B$(k)="1]" ¡0 
1210 NEXT K 
1219 REM Toma dos elementos de p 


DS E e 


O 


O antalla de cada par de bytes par O 
a hacer 4 cuartos 
: 1220 FOR K=1 TO 43 LET D=2*kir LE 

O T C=D-1 o 
; 1230 LET C$="BIN 1000"+E$(C TO D | 

O) IRAB(C TO D) No 
1239 REM Convierte la forma bina 
ria de un cuarto de bloque a car 

O acter 

1240 LET C=VAL C$1 FRINT CHR$ C;5 

| 1230 NEXT Ex NEXT J1 NEXT 1 

O! 1260 RETURN O 


E EN AAN ARAS | J 


Los caracteres gráficos generados por el programa anterior se representan en la 
pantalla y forman una imagen exacta de lo que hubiera en el rectángulo especificado 
de 5 x 8 bloques. Esta imagen ha sufrido un aumento de escala, en ambas direc- 
ciones, por un factor 4, de forma que ahora cubre 20 x 32 bloques y cada pixel original 
es representado ahora por 4 pixels. 

Con la facilidad COPY y la impresora ZX, se pueden conseguir listados con 
una anchura y longitud cuatro veces mayor que la normal; sólo hay que emplear la 
subrutina “pixels gigantes” 16 veces y pegar los trozos correspondientes del listado. 
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Figura 5.3 


Ejercicio 5.2 


Escriba una subrutina que produzca un listado de ella misma COPYando cada 
trozo de su listado de 5 x 8 como “pixels gigantes” en la impresora. 


Gráficos definidos por el usuario 


El tercer conjunto de caracteres es el conjunto de gráficos definidos por el usuario 
(códigos desde el 144 al 164). Existe otra tabla de datos para este juego de carac- 
teres en las últimas 168 posiciones de memoria. Cuando encendemos la máquina, 
se copian en esta tabla los 21 caracteres desde la “A” hasta la “U”. Los datos de 
esta tabla pueden cambiarse a voluntad, de forma que puede obtenerse desde el 
teclado cualquier carácter. Existe una función (USR), que nos da la dirección del 
primer dato del carácter correspondiente al que le mandamos como parámetro (“A” 
hasta “U”). La dirección del principio de esta tabla está guradada en la variable 
del sistema UDG (vea el Manual de BASIC del Spectrum). El código del caracter 
gráfico menos 144 y multiplicado por 8 nos da la posición relativa del primero de 
los ocho datos de dicho carácter dentro de la tabla. La función USR realiza estos 
cálculos y suma el resultado a UDG para obtener la dirección absoluta donde em- 
pieza el carácter. UDG puede variar y tener menos caracteres, por ejemplo sólo desde 
la A a la H, dejando más espacio a los programas; de todas formas, esto no suele 
ser necesario a menos que sólo disponga de 16K de RAM. Para ilustrar el empleo 
de esta función con el fin de cambiar un carácter gráfico, teclee la siguiente línea 


POKE USR “A“, BIN 00100100 
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Ahora, si entramos en modo gráfico y tecleamos “A”, veremos que dos pixels adi- 
cionales han aparecido como dos puntos sobre la “A”. El programa del listado 5.3 
le permite redefinir los ocho valores binarios que representan un carácter gráfico. 
El programa simula el modo gráfico, permitiéndole representar caracteres gráficos 
definidos por usuario en la pantalla. 


Listado 5.3 
10 INFUT "CARACTER A REDEFINIR S l 
",Us$s IF Us="" THEN GO TO 10 ] 
20 IF Us:x"A" OR U$+:"U" THEN 6 
( O TO 10 O 
ZO LET MEMORY=USR U$s CLS 
40 FOR I=0 TO 7 
50 INFUT ("VALOR "+STR$ I+" =B e 
IN ")3 LINE E$ | 
£60 LET VALUE=VAL ("EIN "+E%) 
70 POKE MEMORY+TI, VALUE O 
80 IF LEN E$:28 THEN  LET Eé="0 
Me "+E$: GO TO 80 o 
| Í 90 PRINT E$: NEXT 1 
100 FRINT AT 10,0; "TECLEA CARAC 
5 TERES O ENTER" O) 
109 REM Simula el modo GRAFICOS 
| para las letras A a U 
| O 110 LET R=12: LET C=0 O 
120 FRINT AT R,C3 FLASH 1:1"G” 
la a 130 IF INKEYs$<:%"" THEN GO TO 1 
O 30 Ne 
¡ 140 LET A$=INKEYS: IF A$="" THE 
O N GO TO 140 
A 149 REM Si se aprieta ENTER se a 
| recomienza el programa 
| O 150 IF A$=CHR$ 13 THEN GO TO 1 
(8) | de 
160 IF A$2"a" OR A$:"u" THEN G 
o O TO 130 Ma 
159 REM Convierte el caracter a ' 
1 G.D.U. equivalente y lo imprim : 
ERA e 110 
170 LET As$=CHR$ (CODE A$+47) 
180 FRINT AT R,CiA$ 
O 189 REM Mueve los punteros apar e 
entes del cursor 


134 


190 LET C=C+12 1F C=32 THEN LE 
) T C=02 LET R=R+i3 1F R=22 THEN 

LET R=12 

200 FRINT AT:R,C53 FLASH 13"G" 

210 GO TO 130 


Ejercicio 5.3 


Emplee el listado 5.3 para construir caracteres gráficos de bloques consistentes 
en dameros en lugar de zonas completamente coloreadas. Experimente con estos carac- 
teres con varios colores en PAPER e INK para conseguir nuevos colores; por 
ejemplo, rojo y amarillo dan naranja. 


Los caracteres definidos por el usuario puede incorporarlos directamente a sus 
programas para aumentar la velocidad de dibujo. El carácter equivalente podría ser 
construido por medio de una serie de comandos PLOT y DRAW, pero este sistema 
es, en la mayoría de los casos, mucho más lento. Por ejemplo, por medio de carac- 
teres podemos construir modelos geométricos en la pantalla mucho más rápidamente 
que si los trazamos con PLOT y DRAW. El listado 5.4 nos muestra cómo puede 
hacerse esto por medio de los caracteres redefinidos “A” a “D” (los caracteres sub- 
rayados en el listado indican caracteres en modo gráfico). 


Listado 5.4 
y 200 REM programa principal 
5% 209 REM Llena la pantalla con d ¡ee 
iagonales de los 4 primeros cara 
cteres graficos MEE 
| 210 OVER O 
| 220 INFUT "TINTA " 
6%: 230 INFUT "FAFEL " 
240 LET Ag=" de 


INE 1 


ES 250 LET Có=" "a LET D$=" O 


| 260 FOR J=0 TO 7 : 
O; 270 FOR I=0 TO 4 O 
! 280 PRINT AT 14,Jx4:15$ 
O! 290 FRINT AT 1x4+1,J1*4:5B$ O 
ZOO FRINT AT 144+2,JIx450% 
] 310 FRINT AT 1x4+3,J3*4D5 
20 NEXT 1 
Ea TIO FRINT AT 1%4,J*43AM$ ¡O 
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| 340 FRINT AT 14+1,3*4:E$ 
| a 350 NEXT J 
U 60 STOF 


Juegos de caracteres alternativos 


Hasta ahora hemos empleado 37 caracteres gráficos para realizar los dibujos; a 
partir de ahora podremos emplear 96 caracteres adicionales por cada nuevo juego 
de ellos que definamos. Para emplear un nuevo conjunto de caracteres alternativo, 
todo lo que tenemos que hacer es cambiar el valor de CHARS de forma que apunte 
hacia otra dirección en la memoria RAM (justamente donde hemos definido anterior- 
mente nuestro nuevo juego de caracteres) en lugar de hacia la tabla estándar. Como 
habrá podido apreciar, el esfuerzo necesario para la construcción de un carácter es 
lo suficientemente grande para suponer que la elaboración de todo un nuevo con- 
junto de caracteres sea una ardua tarea. Afortunadamente disponemos de un orde- 
nador, así que dejémoslo que realice él el trabajo sucio. El listado 5.5 es un pro- 
grama para generar y retocar caracteres, y en su diseño se tuvo en mente la idea 
de utilizar dichos caracteres en el desarrollo de programas gráficos. 


Listado 5.5 


fs re > . 
LS 1 CLEAR 62294: INK Ox FAFER 7 
: BORDER 7: OVER 1: LET Nu03 REM 
Fara ordenadores de 16EÉ usar CL 
O! EAR 255+ el valor de S(1), donde ( 
les el indice del menor juego 
E de caracteres 
a: 2 DIM Z2+(8,8): DIM T+*(8,8)3 D 
| 19 S(6); DIM F(8)3 DIM E(8): DIM 
O G(7): REM Numeros de linea del 
| : GOTO para cada opcion del menu 
3 FOR I=1 TO 73 READ G(l):3 NE 
0 XT 1: DATA 61,67,71,100, 106,112, 
E. 119: REM Fotencias de £ para las 
conversiones binarias 
o! 4 FOR I=1 TO 8: READ F(1):2 NE 
XT Iz DATA 128,64,32, 1618.42): 
REM Valores a almacenar en la yv 


| 

A ariable del sistema CHARS para c ( 
ada juego de caracteres. Fara 16 
E deben ser 15360,29271, 30039, 30 

O: 807,31575, 32080. Me 
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O 


S FOR I=1 TO 6: READ S(1): NE 
XT I: DATA 152360, 62039,62807,6%0 
73164343, 64848 

6 LET S=1: GO SUB 17: REM Fon 
e el juego de caracteres 1 e imp 
rime el menu 

7 CLS 2 FRINT AT 2,15 "***GENE 
RADOR DE CARACTERES *+%" 

8 FRINT AT 5,65 FAFER 31"1"; 
FAFER 73" ..0. IMPRIMIR JUEGOS" 

9 FRINT AT 7,63 FAFER 55"2%;5 
FAFER 73" ... IMPRIMIR UN JUEGO" 
10 FRINT AT 9,63 FAFER 593"3%5 

FAFER 73" ... EDITAR CARACTER" 
11 FRINT AT 11,61 FAFER 51"4"3 
FAFER 73" ... COFIA UN JUEGO EN 
OTRO" 
12 FRINT AT 13,63 FAFER 515% 
FAFER 73" ... GRABAR CARACTERES 
13 FRINT AT 15,63 FAFER 53"6"3 
FAFER 73" ,... CARGAR CARACTERES 
14 FRINT AT 17,63 FAFER 55"7%5 
FAFER 73%" ,.. EJECUTAR TU FROGR 
AMA": REM Espera por una opcion 
valida 
13 INPUT "OPCION: "s50Ps 1F OP< 
1 OR OP>7 THEN (60 TO 13 5 REM 
Salta a la rutina apropiada 
16 60 TO GCOF): REM Las subrit 
inas estan al principio para una 
mayor eficiencia. REM Rutina p 
ara cambiar caracteres alterando 
CHARS 
17 LET HI=INT  (S(S)/236)1 LET 
1.0=5 (5) -HIX*236 
18 FOKE 23606,L0: FOKHE 23607, H 
li: RETURN : REM Rutina de espera 
antes de limpiar la pantalla y 
volver al menu 
19 LET S=1: GO SUE 17 2 INFUT 
"ENTER FARA EL MENU" LINE A$: R 
ETURN 3: REM Limpia la matriz de 
caracteres binarios 
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O 


O 


20 FOR l=1 TO 82: LET Z2$(l)="00 
000000" NEXT lí¿z RETURN : REM Le 
e un nuimero de' juego de caracter 
es 

Z1 INFUT "NO. DE JUEGO ? "385 
IF 521 OR 556 THEN GO TO 21 E 

22 LET A=321 LET B1273 1F S=6 

THEN LET A=ó6%: LET Ku85 

2 RETURN +: REM Lee un caracte 
ro valido del juego escogido 

24 INFUT "CARACTER 2"30$: LET 
C=CODE (és 1F CA OR C:B THEN  G 
O TO 24 

20 RETURN : REM Dibuja una rej 
illa 8x8 en la posicion horizont 
al alterada por N 

26 LET NN=64+N: FOR I=0 TO 8 

27 FLOT 1I*8+NN,64:3 DRAW 0,64 

28 FLOT NN, 148+64:3 DRAW 64,0 

29 NEXT Ii RETURN : REM Froduc 
e el equivalente grafico de la m 
atriz de literales binarios en 1 
a rejilla 

S0 FOR l=1 TO 8; FOR J=1 TO 8 

21 LET F=7y IF N=0 AND Z$(1,J) 
="1" OR N=96 AND T$(1,J)="1" THE 
N LET F=4 

32 60 SUE 48 : NEXT Ji NEXT Il: 

RETURN ¿ REM Imprime el cursor 
en Un cuadrado de la rejilla 

Sa PLOT X,Y-24 DRAW 0, 4 

34 PLOT X-2, Yi DRAW 4,0 

20 RETURN : REM Amplia una esq 
uina del caracter en la matriz t 
emporal T$% y la salva 

36 INFUT "ESQUINA 2 "Cs IF C< 
1 OR C:4 THEN GO TO 36 

37 FOR I=1 TO 8: LET T$(I)3="00 
000000": NEXT 13 GO TO Zó6+CO*Z 

38 FOR I=1 TO 42 FOR J=1 TO 4: 

IF Z2$(1,J)="1" THEN LET Tl=x*l 

2 LET TI=2x*J:2 GO SUB 46 

39 NEXT Ji: NEXT lz RETURN 

40 FOR I=1 TO 43 FOR I=5 TO 8: 

IF Z2$(1,J)="1" THEN LET Tl=2x1 


O 


O 


O 


¿ LET TJ=2*(J-4)1 GO SUE 46 
41 NEXT Ji NEXT liz RETURN 
42 FOR l=5 TO 8: FOR Ju=i TO 4: 
IF 2$(1,J)="1" THEN  LET Tl=2x*( 
1-4): LET TI=2xJ1í GO SUE 46 
43 NEXT J1 NEXT li RETURN 
44 FOR I=5 TO 8: FOR J=3 TO Qs 
IF 2$(1,J)="1" THEN. LET Tl=2x( 
1-4): LET TI=2%*(J-4):3 GO SUE 46 
43 NEXT J: NEXT ll: RETURN : RE 
Mi REM Subrutina para convertir 
un elemento de pantalla en 4 en 
una matriz ampliada 
46 LET TS8(TI,TI)="1"4 LET T$8C(T 
id LET TTECTE TI dE 
¡ LET-TeE(TI-AS Td ="d0o RE LURN 
¿ REM Imprime las etiquetas de li 
dentificacion en las esquinas de 
la rejilla 
47 FRINT AT 3,71"1%: FRINT AT 
91163"2": FRINT AT 14,753"3": FRI 
NT AT 14,1653"4": RETURN : REM Su 
brutina para imprimir un bloque 
de color en un cuadrado de la re 
jilla 
48 FRINT AT 14+5,7I+7+N0/83 FAFER 
FF" "2 RETURN 3: REM Imprime el 
caracter ampliado en otra rejill 
a y lo salva 
49 LET N=26: GO SUE 26 3 GO SU 
BO 
30 GO SUB 21 : GO SUB 24 2: LET 
D=S5 (5) +CxB-1 
S1 FOR 1I=1 TO 8: FOFRE D+I,VAL 
("EIN "+T$(1))3 NEXT 1 
S2 LET N=0%2 CLS 3 RETURN 3 REM 
Copia el simetrico de la matriz 
2$ respecto al eje X en T+ 
Se FOR 1=1 TO 81 FOR J=1 TO 8 
34 LET T$8(9-1,J)=2$(1,J)3 NEXT 
J> NEXT li: GO SUB 59 + RETURN : 
REM Copia la matriz 2% rotada e 
n la T% 
Qi FOR I=1 TO 8: FOR J=1 TO 8 
36 LET T$(9-J, 1)=2$(1,J)2 NEXT 


O 
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O 


O 
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Ji NEXT li2 GO SUE 59 : RETURN 2 
REM Copia el simetrico de Z4$ re 
specto al eje Y en T% 
37 FOR 1=1 TO QQ FOR J=1 TO 8 
38 LET T$(1,9-I)=2$(1,)12 NEXT 
Ji NEXT 2 GO SUE 59 2: RETURN .: 
REM Rutina para copiar la matri 
2 71% de nuevo en la 7% 
599 FOR l=1 TO 8: FOR J=1 TO 8 
60 LET 272%$(1,J)=T$(1,3): NEXT J 
* NEXT Ti RETURN : REM Comienzo 
de las rutinas de manejo de cara 
cterest REM Imprime los 3 Juegos 
de caracteres completos y los 6 
«D.U. 
61 CLS : FOR S=1 TO S: GO SUE 


62 FRINT AT 5*4-4, 05 

63 FOR C=32 TO 127: FRINT CHR$ 
Cir NEXT C 

64 NEXT Si: GO SUB 17 3 FRINT A 


63 FOR C=63 TO 85: FRINT CHR$ 
Os NEXT Ci REM Llama a la rutin 
a de espera 

66 60 SUB 19 : GO TO 7 3 REM 1 
mprime un juego y los caracteres 

que sustituye 

67 CLS : GO SUB 21 3: LET S58S=5 

68 FOR C=A TO Ez FRINT FAFER 
6CHRS$ Ci"="31 LET S5=55S: 60 SUE 
17 

69 FPRINT CHR$ Ci LET S=1% GO 
SUB 17 3: FRINT " "5: NEXT Ci: REM 

Vuelve al menu 

70 60 SUB: 19 1: 60 10 7 1. REMO 
peion , edita un caracter limpi 
ando la pantalla y Z% 

71 CLS : GO SUB 20 : REM Calcu 
la la posicion de nm caracter 

72 60 SUR 21: GO SUB 24: LET D 
=5 (5) +2x8-15; REM Toma 8 numeros 
binarios de la tabla de datos 

73 FOR 1=1 TO 8: LET E(1)=FEEK 

(D+1)3 NEXT Il: REM Convierte el 


numero en un literal binario de 
8 digitos 

74 FOR I=1 TO 8: LET T=E(1) 

73 FOR J=1 TO 8 

76 1F To=F(J) THEN  LET Z$(1,J 
1 LET T=T-F(J) 

77 NEXT JJ: NEXT li REM Dibuja 
una rejilla con los bloques verd 
es representando un 1 binario 

78 GO SUB 26 : 60 SUB 30 : REM 

Inicializa la posicion del curs 
or y los valores de referencia d 
e la rejilla 

79 LET X=68: LET Y=124% LET l= 
la LET J=12 REM Sobreimpresiona 
el cursor 

80 60 SUB 33 2 REM Espera hast 
a apretar una tecla 

81 1F INKEEY$<3%"" THEN GO TO 8 
1 

82 IF INEEY$="" THEN 60 TO 82 

REM Lee el comando y borra e 
lo cursor 
83 LET As=INKEYS$: BEEF 0,039,230 
GO SUB 33 2: REM Comprueba si $s 
e estan apretando las teclas del 
CLICSOr 

84 IF (A$="5" OR A$=CHR$ 8) AN 
D Je1 THEN. LET X=X*X-8: LET J=J-1 

85 IF (A$="6" OR A$=CHR$ 10) A 
ND 1:38 THEN.  LET Y=Y-8:; LET I=I<«* 
1 

86 IF (A4%$="7" OR Aé=CHR$ 11) A 
ND 131 THEN  LET Y=Y+8:¿ LET I=I- 
1 

87 IF (A$="8" OR Aé=CHR$ 9) AN 
D J:28 THEN.  LET X=X+8% LET J=J+1 
: REM Comandos especiales: REM OR 
ellenado de un cuadrado 

88 IF A$="F" OR A$="p" THEN L 
ET F=43 LET 28$(1,J)="1"%. G0 SUE 
48: REM Borrado de un cuadrado 

89 1F A$="0" OR A$="0" THEN  L 
ET F=7: LET Z2$(1,J)="0"3: GO SUE 
43 1 REM Rota el caracter 90 gra 
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0) 


O 
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dos en sentido antihorario 
30 1F Até="R" OR A$="r" THEN 6 
O SUB 55: GO SUB 30: GO TO 79% R 
EM Simetrica respecto a X 
91 1 A$="X" OR Aé="x" THEN 6 
O SUB 53: GO SUE 302 GO TO 79:,K 
EN Simetrica respecto a Y 
2 TF As="Y" OR Aé="y" THEN 6 
O SUB 57: 60 SUB 30: 60 TO 79% KR 
EM Mezcla in caracter con el act 
Lal 
93 IF Af="M" OR Aé="m" THEN 6 
O SUE 26: GO TO 72 : REM Amplia 
al doble una esquina del caract 
er 
4 1 Aé="D" OR Aé="d" THEN 6 
O SUE 47 : GO SUB 26 1: GO SUE 49 
:* 60 TO 78 : REM Vuelve al pri 
ncipio oO salva el caracter 
93 1 ARI2"5" AND A$23"s" THEN 
0 TO 80 1 REM Sustituye el 
aracter en la tabla de datos usa 
ndo la funcion EIN 
96 GO SUB 21 : 60 SUB 24 
97 LET D=S (5) +0x*B-1 
98 FOR l=1 TO 8: FOKFE D+I,VAL 
("EIN "+Z$(13)33 NEXT li2 REM vuel 
ve alo menu 
99-60 SUB 1917 60 TO 7/3 REM Ope 
ion 4, copia un juego en otro 
100 INFUT "DEL JUEGO "543" AL J 
UEGO "¡E REM Comprueba si los j 
Vdegos son validos 
101 1F A%1 OR BXx1 OR 4:35 OR Ex 
THEN 60 TO 100 
102 IF A=B THEN (GO TO 105 : KE 
M Copia los datos de una tabla a 
otra ' 
10% FPRINT AT 21,105 "ESFERE": FO 
R E=x236 TO 1024 
104 FOKE (SCE)+E), FEEK (S(A)+k) 
NEXT Ex REM Vuelve al menu 
105 60 SUB 19 2 60 TO 7 2 REM O 
pcion 3%. graba un juego de carac 
teres en cinta 


106 CELS 4 FRINT AT 2,6 "GRABAND 
O CARACTERES"? INPUT "NOMBRE “2 ” O) 
| NS: 1F N$z="" THEN 60 TO 7 
| 107 FRINT AT 4,103N$%: INFUT "JU 


O EGO 72 "383 IF (S:i2 OR S:6) AND $S O 
¿11 THEN GO TO 107 : REM Si te 

0 cleas 5S+6 graba los juegos 3 y 6 Me 

3 108 IF S=11 THEN SAVE N$ CODE 
(5(5)+236),168+7683 60 TO 111 : 

O REM El juego 6 es menor que los O 
otros 
109 IF S=:b6 THEN SAVE Né CODE (€ 

3, 58167 +51:2), 1682 60 TO 1:11 Me. 


110 SAVE N$ CODE (S(5)+230),768 
¿ REM Vuelve al menu 
O 144 - GU SUE 192 320060 TO 7 7 REMO RE) 
pecilon 6, carga un Juego de carac 
teres de cinta 


o 112 CLS : PRINT AT 2,65 "CARGAND O 
O CARACTERES": INFUT "NOMERE 2" 
; Nx 1F Né="" THEN GO TO 7 E 
cd 113 FPRINT AT 4,105N$%: INFUT "JU e 
| EGO % "4581 1F (52 OR S5:6) AND $5 
O) $ 2d THEN 60 TO 11% 0 
O: 114 FRINT AT 21,10: "Arranca el 
| casete." REM Si tecleas 0tó car | 
| O ga los juegos 3 y 6 de 


1135 1F S=11 THEN LOAD N$ CODE 
(8 (3)+256),168+768: 60 TO 119: K 
> EM Carga el juego definido por e 
l usuario 
116 IF 5:76 THEN LOAD N$ CODE ( 
) 5(6)+512),1683 GO TO 118 O 
117 LOAD N$ CODE (S(S)+256),768 : 
REM Vuelve al menu 
118 60 SUB 19 y GO TO 7 ee 


Las subrutinas GENERADORAS DE CARACTERES han sido pensadas para que 
realicen todos los trabajos desagradables de preparar y usar los caracteres definidos: 
le permiten editar y manipular los caracteres, emplear juegos de caracteres alter- 
nativos, guardar y leer de cinta dichos conjuntos de caracteres y probar inmediata- 
mente sus programas. Las subrutinas han sido diseñadas para el Spectrum de 48K 
y su localización será en la parte inferior de la memoria (líneas 1 a 118); a con- 
tinuación irá su programa (con números de línea superiores al 118), y por último se 
añadirán los programas de renumeración y borrado (están en el capítulo 13, no los 


143 


busque por aquí) que comienzan en la línea 9900. Si posee un Spectrum de 16K, 
entonces este programa debería ejecutarse independientemente de otras subrutinas 
(vea el Apéndice A). 

En primer lugar, el programa ofrece una serie de siete opciones que describiremos 
a continuación: 


1) La primera opción es IMPRIMIR JUEGOS. Esta opción imprimirá el juego de 
caracteres normal (juego 1), seguido de los cuatro juegos alternativos (2 a 5) 
y por último del conjunto gráfico definido por el usuario (6). Los últimos ca- 
racteres del juego 5 contendrán datos espúreos, restos de la pila del GO SUB, 
que ha sido cambiada de sitio por razones de seguridad. 


2) La segunda es IMPRIMIR UN JUEGO. Estos están identificados por los números 
del 1 al 6: el conjunto número 1 es el juego de caracteres estándar y no puede 
cambiarse; del 2 al 5 son conjuntos alternativos y pueden reemplazar temporal- 
mente al estándar; el 6 es el juego de caracteres gráficos definidos por el usuario 
y siempre estará a nuestra disposición. Al seleccionar uno de estos números, 
la pantalla nos mostrará cada carácter del juego estándar seguido del signo igual 
(=), ambos sobre fondo amarillo, seguidos del carácter equivalente el juego alter- 
nativo. En el caso del juego 6, sólo se presentarán los caracteres desde “A” hasta “U”, 
y mostrará los que se obtienen al utilizarlos en modo gráfico. 


3) La opción 3 es el editor. Esta es la opción más compleja y conlleva el uso de 
varios comandos que se ejecutan tecleando su inicial. En primer lugar se le pre- 
gunta por el conjunto de caracteres que desea modificar y, dentro de ellos, por 
el carácter en particular. Si quiere empezar con una rejilla negra de 8 x 8 pixels, 
elija el juego 1 y el carácter espacio. (Para seleccionar las comillas es necesario 
teclearlas dos veces (vea el Manual de BASIC del Spectrum).) 


Se encontrará ahora en modo de edición y el carácter elegido es presentado en 
forma de rejilla de 8 x 8 bloques de color verde. La cruz de la esquina superior 
izquierda es el cursor de edición. La posición de este cursor se controla por medio 
de las teclas usuales (“5”, “6”, “7” yu “8”) no siendo necesario tener oprimida la 
tecla de mayúsculas. 

Los dos primeros comandos son PLOT u OFF, que cambian un cuadro en la 
rejilla del carácter (PLOT lo dibuja y OFF lo borra). Coloque el cursor sobre el 
cuadro en cuestión y teclee “P” u “O”. 

“P” vuelve el cuadro de color verde, equivalente a poner un uno binario o a di- 
bujar el pixel correspondiente, y “O” lo borra quedando en blanco. 

Los tres comandos siguientes realizan transformaciones similares a las que vimos 
en el capítulo anterior. ROTACION gira el carácter 90 grados, en sentido contrario 
a las agujas del reloj, alrededor de su centro. X-EJE refleja el carácter a lo largo 
del eje horizontal, e Y-EJE lo refleja según el vertical. Estos comandos pueden em- 
plearse para crear textos en cualquier orientación. 

Por último, tenemos MEZCLA, SAVE y DOBLE. MEZCLA permite sobreimponer 
otro carácter sobre el que estamos editando. Es de gran utilidad para la creación de 


e.» 


juegos de caracteres propios de un idioma; por ejemplo, la letra “ñ” y las vocales 
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acentuadas en el caso del español, o de la “c” con cedilla (“c”) en el caso del ca- 
talán, etc. El comando SAVE pregunta en qué juego de caracteres queremos guardar 
el recién creado y a cuál de los estándares queremos asociarlo. Si se especifica el 
juego 1, el carácter se perderá, ya que se encuentra en la memoria ROM del 
Spectrum: este proceso nos permite desembarazarnos de algún carácter creado por 
equivocación y que contiene suficiente número de errores para no querer cambiarlos 
uno a uno. DOBLE es un comando muy útil que nos permite coger un cuadrante 
del carácter que estamos editando y aumentarlo hasta que ocupe toda la rejilla, 
y guardarlo (mediante SAVE) como un carácter. Esta opción no afecta al carácter 
en edición, de forma que pueden guardarse las cuatro esquinas en cuatro caracteres 
distintos sin tener que iniciar la edición para cada una de ellas. Esta característica 
puede usarse para crear caracteres de tamaño doble, cuádruple e incluso mayor con 
gran facilidad. 


4) COPIA UN JUEGO EN OTRO es la cuarta opción y puede emplearse para 
hacer copias de un juego de caracteres completo para manipularlas a continua- 
ción, o simplemente para cambiar un juego de caracteres a otra posición de 
memoria. Los juegos 2 a 5 están almacenados al final de la memoria, justo antes 
de la tabla de caracteres gráficos definidos por el usuario, con el conjunto 5 en 
último lugar. Esta área de memoria está reservada y protegida del BASIC por medio 
del comando CLEAR 62294 en la versión de 48K (para más detalles, consulte 
el Manual de BASIC del Spectrum). 62294 es la posición anterior al comienzo 
de la tabla para el juego 2. Para proteger las zonas correspondientes a los con- 
juntos Í y siguientes, tenemos que evaluar S(I) + 255 y colocar este número en 
el comando CLEAR al principio del programa. S(I) es el valor asignado a la varia- 
ble CHARS que permite a la instrucción PRINT el acceso al juego I. Estos 
valores son leídos (mediante la sentencia READ) de los datos correspondientes 
a la línea 3 (sentencia DATA). Si dispone de una máquina con 16K, siga las 
instrucciones del Apéndice A. 


S) y 6). La opción quinta nos permite guardar todo un juego de caracteres en 
cinta y la sexta recuperarlos. Si en respuesta a la pregunta “NO. DE JUEGO”, 
tecleamos un número entre 1 y 6, entonces este juego será guardado o cargado. 
Si tecleamos, por ejemplo, 5 + 6, entonces los juegos 5 y 6 se guardan o cargan 
como una unidad conjunta. 


Para que otros programas puedan cargar y emplear los juegos alternativos de 
caracteres creados, tendremos que copiar las líneas 112 a 117 del GENERADOR 
DE CARACTERES” además de la subrutina (17 y 18), que permite saltar de un 
conjunto a otro. El vector S y sus datos de la línea 5 deberán incluirse también 
en nuestros programas. 


7) La última opción es EJECUTAR TU PROGRAMA, que transfiere el control 
a la primera línea que siga al generador de caracteres; si no existe esta sentencia, 
el programa se parará. 


Para que usted se familiarice con el “GENERADOR DE CARACTERES” siga 
las instrucciones que se dan a continuación. 
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Una los listados 5.4 y 5.5 (con el comando MERGE) en el Spectrum de 48K; 
o bien ejecútelos por separado en el de 16K. Cree un carácter en forma de borrón 
de tinta y guárdelo como carácter “A” en el juego 6. Edite ese carácter: gírelo y 
guárdelo como “B” del juego 6. Edite “A” del 6: use X-EJE y guárdelo como “C” 
del 6. Edite “B”: use la reflexión Y-EJE y guárdelo como “D”. Ahora utilice la 
opción 7 para ejecutar su programa y vea qué figura obtiene en la. pantalla. 


Ejercicio 5.4 


Experimente con algunas de las simetrías posibles de caracteres y modelos colocando 
caracteres en la pantalla. Cambie el programa de forma que genere todas las com- 
binaciones de INK y PAPER por medio de los dos bucles FOR ... NEXT anidados. 


Figura 5.4 


Ejercicio 5.5 


Cree caracteres que representen fichas de dominó por medio del “GENERADOR 
DE CARACTERES” del listado 5.5 Esto le permitirá construir imágenes como la de 
la figura 5.4. 


Ejercicio 5.6 


Escriba una subrutina que copie un conjunto de caracteres en otro, pero que 
emplee alguna subrutina del editor del “GENERADOR DE CARACTERES” para 
efectuar alguna transformación antes de copiarlos. La figura 5.5 muestra un listado 
producido con un juego de caracteres que ha sido girado. 
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Figura 5.5 


Consideremos ahora un programa completo que ha sido desarrollado empleando 
el “GENERADOR DE CARACTERES” y separado a continuación del sistema de 
desarrollo para que funcione en solitario. El programa “MASTER MIND” (listado 5.6), 
una de cuyas imágenes de cuando el juego se está desarrollando se presenta en 
la figura 5.6, se ha creado basándonos en un juego de caracteres alternativo. Este 
juego de caracteres se ha generado DOBL(E)ando las letras y dígitos necesarios del 
conjunto 1 y guardándolos en las esquinas superior derecha y superior izquierda 
de las letras mayúsculas del juego 5 y las esquinas inferiores en las letras minúsculas 
del mismo juego. Los dos tamaños de clavijas se guardaron en el conjunto de carac- 
teres gráficos definidos por el usuario, que es independiente del juego principal; por 
tanto están siempre disponibles, ya estemos trabajando con el juego 1 o con el 5. 
Las letras de doble tamaño fueron editadas para redondear sus bordes y los con- 
juntos 5 y 6 (5 + 6) se guardaron en cinta bajo el nombre de “master”. 


Listado 5.6 
F o Ez ES == —_ a, 
AN 1 CLEAR 62294: INE Ox FAFER 7 O 
| : BORDER 7: REM Rutinas para el 
. uso de juegos de caracteres alte 
2. rnos: REM Hacer las alteraciones O 
del listado 3.5 para 16kK 
Z DIM S5(6) 
91 3 FOR I=1 TO 6: READ S(1):3 NE Ó 
: XT Iz DATA 157360, 620739, 62807035 
al 731643473, 64848 
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o) 


O) 


O 


6 LET S=1: 60 SUE 17 
7:60: TO 200 
17 LET HI=INT (S(S)/256)3 LET 
LO=S (S) -HI*256 
18 FORE 23606,L0: FOKE 23607,H 
Il: RETURN E 
112 CLS : FRINT AT 2,65 "CARGAND 
O CARACTERES": LET N$="master" 
113 FRINT AT 4,103N%:% LET S=53+6 
114 FRINT AT 21,10;"Arranca el 
casete." FRINT AT 5,05 
115 LOAD N$ CODE (S(5)+256),1068 
+768 
118 RETURN 


1798 REM Carga los caracteres e 
inicializa la puntuacion 

199 REM Matrices para guardar e 
l codigo y el intento 

200 GO SUB 1121 LET MYSCORE=0s 
LET SCORE=0%* DIM G(5): DIM T(4): 
DIM X(4) 

209 REM Rutina para dibujar la 
pantalla 

210 RANDOMIZE : GO SUE 480 

219 REM Fija los colores de la 
clave y va al bucle de intentos 
220 FOR I=1 TO 41 LET T(1)=INT 
(RND*6)+13 NEXT li LET GO=0 

229 REM Siguiente intento, si e 
s el septimo pierdes 

230 LET GO=GO+1: IF GO0=7 THEN 
GO TO 390 

239 REM Rutina de entrada del 1 
ntento 

240 GO SUB 780 

249 REM Imprime el intento en e 
l tablero (A es el grafico A) 
2590 FAFER 7 

260 PRINT AT 1+G0*3, 11% INF G(1 
330 "5 INK G(2)33" "5 INK G6(3)5 
- "3 INE G(4)3" pS 

269 REM Compara el intento con 
una copia temporal del codigo 
270 LET NB=0%* LET NW=0: FOR I=1 


O 


O 


TO 4: LET X(I)=T(1)3 NEXT 1 

279 REM Frimero comprueba acier 
tos exactos 

280 FOR l=1 TO 4: 1F G(1)=X(1) 
THEN LET X(1)=0%* LET NBE=NE+1:3 L 
ET 6G(1):=7 

290 NEXT 1 

299 REM Comprueba colores acert 
ados en posicion incorrecta 

200 FOR l=1 TO 45 FOR J=1 TO 4: 
IF G(1)=X(J) THEN LET NW=NW+1x 
LET X(D=0%" LET G(1)=7 

210 NEXT Jí NEXT 1 

219 REM Fija la matriz. X con el 
numero apropiado de blancos y n 
egros 

320 FOR I=1 TO NB: LET X(1)=05 
NEXT li FOR I=NB+1 TO NE+Nw 

BSO LET X(1)=7% NEXT lis 1F NE+N 
W:4 THEN FOR I=NE+NW+1 TO 4: LE 
T X(1)=43 NEXT 1 

239 REM Dibuja los indicadores 
blancos y negros en el tablero 
340 FAFER 41 FRINT AT G0*3+1,:35 
TN Xx CL" go DIE do 

350 PRINTO INE X(3)33" "5 INE X( 
4) ¡ "nn 

2099 REM Si tienes todo correcto 
ganas 

360 IF NB=4 THEN GO TO 400 

269 REM Suma 1 a la puntuacion 
del ordenador y pasa al siguient 
e intento 

370 LET MYSCORE=MYSCORE+1: FRIN 
TOAT 10,265 FAFER 63 INE O3MYSCO 
RE 

280 60 TO 230 

389 REM Si pierdes el ordenador 
consigue 10 puntos mas 

390 LET MYSCORE=MYSCORE+10: GO 
TO 410 

399 REM Si ganas consigues 10 p 
untos 

400 LET SCORE=SCORE+10 

409 REM Construye el literal pa 


a 
A 


O 


Ol 


O 


149 


O 


O 


150 


ra imprimir en el tablero 
410 LET 1I$=CHR$ 17+C0HR$ 7+"CLAV 
E "+CHR$ 16+CHR$ T(1)+" bl 
420 LET I$=I$+CHR$ 16+CHR$ TC) 
+" ” 
430 LET I$=I$+CHR$ 16+CHR$ T(3) 
+. ” 
440 LET I$=I$+CHR$ 16+C0HR$8 T(4) 
+" "+CHR$ 16+CHR% O 
430 LET I$= I5+CHR$ 6+"ENTER FAR 
A CONTINUAR 
439 REM Muestra el codigo y esp 
era hasta que se da ENTER para r 
ecomenz ar 
460 INFUT (1I$)5 LINE Es 
470 GO TO 210 
479 REM Dibuja el tablero 
480 OVER O: BORDER 63 FAFER 7: 
CLS 2 INK O 
489 REM Usa los caracteres alte 
rnos para imprimir MASTER MIND a 
mpliado 
490 LET S=5: GO SUB 17 
300 FRINT AT 0,05" ABCDEFGHIJEL. 
AEMNOFQR" 
310 FRINT AT 1,05" abcdefghijkl 
abmnopqr" 
319 REM Imprime numeros ampliad 
os 
320 FRINT AT 4,73"ST"2* FRINT AT 
Dis Hue — Y O 
S30 PRINT AT 7,73 "UV": FRINT AT 
8, Tuy 
540 FRINT AT 10, 73 "WX": FRINT A 
ne Pena 
SO FRINT AT 13,73"YZ"w FRINT A 
qe 14, 7; "yz " 
360 FRINT AT 16,73"[X"s FRINT A 
NA L-Za MA: 
570 FRINT AT 19,753"1%"3s FRINT A 
Ss A 
579 REM Finta los bordes del ta 
blero en amarillo 
580 FAFER 41 FOR 1=% TO 20: FRI 
NT AT 1.15" "3 NEXT 1 


O) 


O 


390 FAFER 6: FOR I=0 TO 21: FRI 
NT AT 1,245" "3 NEXT 1 
600 FAFER 7: FOR 1=4 TO 19 STEF 


609 REM Imprime espacios para l 
os controles de aciertos 

610 FRINT AT 1,115" 0 
NEXT I 

620 LET S=1i2 GO SUB 17: FAFER 2 
60 LET G4$=" FOR ERIAN JON 
ES Y IAN —ANGELL. 1982 


640 FOR I=0 TO 8 

630 FRINT AT 12+1,243 FAFER 65 
INE 23CHR$ 1335 FAFER 23 INE 736 
$ (Ix6+1 TO Ix6+b)5 

660 FRINT— INE 23 FAFER 6iCHR$ 
138: NEXT 1 

669 REM Imprime las puntuacione 
s 

670 FAFER 6: FRINT AT 2,263 "TUS 
"3 PRINT AT 3,255 "FUNTOS" 

680 FRINT AT 5, 263 SCORE 

690 FRINT AT 7,26; "MIS": FRINT 
AT 8,235 "FUNTOS" 

700 FRINT AT 10, 263 MYSCORE 

709 REM Dibuja lineas horizonta 
les en el tablero 

710 FOR I=sz2. TO 20 STEP Sí LET Y 
=1408-*1 

720 FLOT 7, Ys DRAW 176,0: FLOT 
7, Y-13 DRAW 176,0: NEXT 1 

729 REM Dibuja lineas verticale 
s en el tablero 

TO FLOT 7,75 DRAW 0,145: FLOT 
8,7: DRAW 0,145 

740 FLOT 183,73 DRAW 0,145: FLO 
T 184,73 DRAW 0,1453 

730 FLOT 53,71 DRAW 0,1453: FLOT 
306,7: DRAW 0,145 

760 FLOT 71,7: DRAW 0,145: FLOT 
72,73 DRAW 0,1453 

770 RETURN 

779 REM Controles de aciertos 
780 LET NG=1 


O 


O 


O 


(5 
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790 60 SUE 830: INFUT (1$)¡G(NG 
Je 1F G(NG)<1 OR G(NG)>7 THEN 6 
O 0 TO 790 EE 
800 IF G(NG)=7 THEN LET NG=NG- 
: 1: 60 TO 790 


o 810 LET NG=NG+1:3 IF NGb6 THEN O 
| 60 TO 790 
820 RETURN : 
O 829 REM Construye la cadena con O 
i codigos de colores y caracteres 
O 830 LET I$=CHR$ 17+CHR$ 7+"TU 1 LO 
NTENTO " | 
840 IF NGi=1 THEN. LET NG=14 RE ! 
. TURN 
il 850 FOR J=1 TO NG-1: LET I$=]$-+ 10 
CHR$ 16+CHR$ G(J)+" "ga NEXT J 
5 860 RETURN MO) 
E —e == ELE. e E PS PO EOS 


a 


Pa TH 


[0] 


mI 
e: 


Figura 5.6 


Las subrutinas copiadas del programa “GENERADOR DE CARACTERES” man- 
tienen su numeración original de forma que puedan ser identificadas fácilmente y 
comparadas con el original. La imagen de la parte superior de la pantalla está cons- 
truido por bloques sencillos a partir de los caracteres, colores y líneas de forma que 
el papel que juega cada bloque en la construcción es directo y encajable con gran 
facilidad. El programa emplea también la técnica de entrada dinámica de tiras de 
caracteres (que discutiremos en el capítulo 13) para crear la imagen de la parte 
inferior de la pantalla. 
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Ejercicio 5.7 


Adecente un poco el programa “MASTER MIND”, dándole una apariencia es- 
tructurada. Aumente su facilidad de lectura añadiéndole nombres de variable a las 
subrutinas. Adapte el programa “MASTER MIND” para que juegue contra usted. 

Como final de este capítulo, damos un ejemplo de cómo conseguir imágenes de 
alta calidad por medio de una adecuada elección de caracteres gráficos. El pequeño 
programa siguiente emplea los caracteres de ajedrez de la cinta “ajedrez” para di- 
bujar un tablero de ajedrez (evidentemente; véase la figura 5.7) y mover las piezas 
de acuerdo con las órdenes tecleadas. Por supuesto, usted puede crear sus propios 
caracteres para las fichas si éstos no le convencen. 


Listado 5.7 


O 8 REM Poner el ordenador en m 5 
ayusculas 
Q REM Inicializacion para usa 
ES r los juegos 1 y 3. Fara 16K usa ( 
se r CLEAR 318303 S5=31575 
10 CLEAR 64598: LET S5=64343: 


O LET S1=15360 LO 
20 INPUT " CARGAR CARACTERES 2 S 

"5Y$: IF Y$="S" THEN LOAD "aje 
O drez"CODE S5+256,768 > 
: 100 REM genera el tablero 3 


o 110 INK O: PAPER O: BORDER O: C Ñ 
Ed Ls O 
120 PAPER 6 
129 REM Pinta de amarillo los b 
2 ordes ES 
130 FOR I=1 TO 20: FOR J=1 TO 2 
140 PRINT AT 21-1,J+53"” ": PRIN | 


| 
3 T AT 1,J+233" " > 
150 PRINT AT J,1+553" ": PRINT A 
T J+18,26-13" " | 
a 160 NEXT J: NEXT I 0:00 
159 REM Imprime los cuadrados d | 
el tablero 
2 170 LET C=4 WO) 
: 180 FOR I=2 TO 8 STEP 2: FOR J= 
2 TO 8 STEP 2 
Sl 190 PAPER C: PRINT AT J+1,1+63" 0 
": PRINT AT J+2,1+63" " 
| 200 PRINT AT 19-3,24-13" "2 PR 
a INT AT 20-3,24-13"  " Le 
| 


210 LET C=7-C: PAPER € ] 
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220 PRINT AT J+1,24-13" "3 FRI 
NT AT J+2,24-1I3"  " 

230 FRINT AT 19-J,I+63" "1 FRI 
NT AT 20-J, I+63"  " 

240 NEXT Ji LET C=7-Cs3 NEXT I 
249 REM Imprime letras y numero 
s alrededor del tablero 

230 FAFER 6 

260 FOR I=1 TO 8; FRINT AT 20,6 
+2XTFCHRS (64+1):; FRINT AT 2x*I+2 
2 (9-10 NEXT 1 

200 REM coloca las piezas 

210 DIM E(8,8) 

319 REM Las blancas tienen 10 $s 
umado al numero identificador de 
pieza 

320 FOR lI=1 TO 8: LET E(2,1)=6: 
LET E(7,1)3=16: NEXT 1 

330 FOR l=1 TO 33 LET E(1, 1)=4- 
Ti: LET E(1, 1+-5)=1 

3540 LET B(8, 1)=14-l: LET E(8, I-+ 
9)=I+1O0s NEXT I 

230 FOR 14 TO Sí LET E(1, 1)=9- 
la LET E(8, 1)=19-14 NEXT 1 

237 REM Fija los punteros de la 
s rutinas 

360 LET move=1000: LET input=11 
00: LET piece=12001: LET flash=12 
00: LET charset=1400: LET list=1 
00 

269 REM Dibuja las cabeceras de 
las listas de movimientos 

270 FAFER Os INK 72 FRINT AT 1, 
O; "ELANCO": FRINT AT 1,273 "NEGRO 


280 FLOT 0,159: DRAN 47,0: DRAW 
Orla DRAW -47,0 

290 FLOT 216,135% DRAW 39,0: DR 
AW O, DRAW -39,0 

399 REM Llama a la rutina para 
dibujar cada pieza 

400 FAFER 83 FOR E=l TO 2: FOR 
J=1 TO 83 LET I=k1 60 SUB piece: 
LET I=9-Ex 60 SUE pieces NEXT J 
2 NEXT KE 


O 


O 


$ 


O 


O 


O 


O 


300 REM programa principal 

309 REM Matriz de los movimient 
0S 

310 DIM N$(2,100,5)1 BORDER O: 
LET S=S1% 60 SUB charsetíi LET N= 
1 

319 REM Lee el movimiento blanc 
o y hace parpadear el cuadrado e 
specificado 

3920 LET I$="ELANCAS": 60 SUE in 
puti LET F=124 60 SUE flash 

329 REM Fermite cancelar y camb 
iar el movimiento 

9350 INFUT "CORRECTO Y "5Y$2 IF 
Y$23"5" THEN LET F=0%+ GO SUE +1 
ashi 60 TO 520 

37 REM Mueve la pieza e imprim 
e el movimiento 

340 60 SUB moves: LET N$(1,N)=Ms$ 
s 60 SUE list 

349 REM Repite el mismo procesc 
para las negras 

3950 LET I$="NEGRAS": 60 SUE inp 
uti LET F=112 60 SUE flash 

360 INFUT "CORRECTO % "¿Y$s IF 
Y$2>"5" THEN LET F=0%* 60 SUE 41 
ash 60 TO 550 

570 GO SUBE move: LET N$(2,N)=M$ 
¿ GO SUB list 

3579 REM Siguiente movimiento 
580 LET N=N+12 60 TO 520 


1000 REM movimiento 

1009 REM Mueve las piezas especi 
ficadas 

1010 LET 'B(12,42)=B(11,J1):3 LET 
l=124 LET J=J23 60 SUB piece 
1020 LET B(11,J1)=0: LET I=I10 L 
ET J=J1: 60 SUB piece 

1070 RETURN 

1100 REM entrada 

1109 REM Lee las coordenadas del 
cuadrado de origen y el de dest 
ino 


O 
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1110 INFUT (1%$+".* JUGADA No. "+ST 
R$ N+" ")3 LINE Més"-"3 LINE T%s 
IF Mé="STOF" OR Mé=" STOF " THE 
N  STOF 
1120 IF LEN M$x2+2 OR LEN T$<>2 T 
HEN GOD TO input S 
1130 LET Ji=CODE M$(1)-443 LET 1 
1=9-(VAL M$(2))2 1F 11<1 OR 118 
OR Jiz1i OR J158 THEN 60 TO inp 
LE 
1140 LET J2=CODE Té$(1)-443 LET 1 
2=9-(VAL Té$(2))1 1F 12%1 OR 128 
OR J2%<1 OR 328 THEN 60 TO inp 
ut 
1150 LET Mé=Me+"-"*T$2 RETURN 


1200 REM pieza 

1201 REM Datos de entrada 1,J 

1209 REM Redibuja el cuadrado 1, 

J con el valor de la matriz del 

tablero 

1210 LET S=85: GO SUB charseti: L 

ET B=B(1,J): INK Ox IF B10 THEN 
INE 73 LET E=-B-10 

1220 LET Bu2x*Br LET A$=CHR$ (63+ 

EN) +THR$- (64+E0 3 LET Esb=CHR$ (95+ 

EN +CHRGE- (96+E) 

1230 IF E=0 THEN LET A$="  "i L 

ET ES=A 

1240 FRINT AT Ix2+1, I*2+63AB1 FR 

INT AT Ir2+2, I2+6O ER 

1250 LET S=5S1: 60 SUE charset: R 

ETURN 


1200 REM parpadeo 

1301 REM Datos de entrada F,l1,J 

1, 12,JI2 

1309 REM Cambia el atributo de p 

arpadeo de los cuadrados 11,71 € 
Za da 

1310 FLASH Fi OVER lí INE 8: FRI 

NT AT 1I2%*2+1,J2*2+653" "1 FRINT 

AT 12242 Jar 2er 0" 
1320 PFRINT AT I1x*2+1,J1X*2+63"  " 

 FRINT AT T1xXx2+2,J1*24+63"  " 


O 


(5 


1330 FLASH O: OVER Or RETURN 


1400 REM juego de caracteres 
1401 REM Datos de entrada $S 
1409. REM Cambia la variable del 
sistema CHARS al valor de S 

1410 LET HI=INT (S5/256)2 LET LO= 
S-2DO*HI 

1420 FOKE 23606,L0: FOKE 23607,H 
li RETURN 


1300 REM listado 

1309 REM Lista los ultimos 16 mo 
vimientos en cada lado de la pan 
talla 

1510 LET T=Mi 1F T216 THEN  LET 

T=1ió6 

13520 FOR I=T-15 TO Ts FRINT AT 1 
<T+18,0% INE 75N$(1,1) 

13:30 FRINT AT 1-T+18,273 INE 73N 
$2, 171 ¡NEXT 1 

1340 RETURN 


Figura 5.7 


O 


O 
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Ejercicio 5.8 


Adapte el programa del listado 5.7 para que detecte movimientos ilegales y añá- 
dale el enroque y la captura de peones “al paso”. Si lo suyo ya es vicio, añándale 
las subrutinas necesarias para que el ordenador juegue contra usted. 


En el capítulo siguiente consideraremos la combinación de caracteres gráficos 
y nuestros conocimientos de geometría bidimensional para el trazado de representa- 
ciones de datos. 


Programas completos 


I. 


IL 


¡00 


VI: 


VII 


Listado 5.1. Datos requeridos: A$. A$ puede ser cualquier carácter salvo los 
de modo gráfico; pruebe con “X” o “x”. 

Listado 5.2. “Programa principal” y “pixels gigantes” (main program y big pixels). 
Datos requeridos: FIL y COL donde 0 < FIL < 16 y 0 < COL < 24, Pruebe 
con (0, 0) y (1, 1). 

Listado 5.3. Datos requeridos: U$ y ocho números BINarios, como máximo 
de 8 bits, para redefinir el carácter gráfico especificado por U$. Pruebe “A” 
y 111, 111000, 1010101, 101, 11111001, 1001, 111, 10110; y “B”, “C” y “D”, 
cada uno con permutaciones de esos ocho números. A continuación oprima las 
teclas “A” hasta “U” para ver los caracteres gráficos equivalentes o bien 
oprima ENTER para volver a empezar el programa. 

Listado 5.4: no se precisan datos. El programa III debe emplearse para crear 
los caracteres gráficos “A”, “B”, “C” y “D”. 

Listado 5.5: el GENERADOR DE CARACTERES. Lea el texto para su des- 
cripción y ejemplos de su uso. 

Listado 5.6: precisa “master” de la cinta, o bien la generación de sus propios 
caracteres. Para jugar al “MASTER MIND”, teclee el número correspondiente 
al color de la clavija (“*1” a “6”) que desee poner. Si teclea “7” elimina la úl- 
tima clavija introducida. Cuando las cuatro estén a su gusto teclee “1” para 
que el ordenador le conteste. 

Listado 5.7: precisa “ajedrez” de la cinta. Teclee las coordenadas de los cua- 
dros de salida y llegada para un movimiento. Las coordenadas de un cuadro 
vienen dadas por una letra mayúscula (“A” hasta “H”) seguida por un número 
(“1” hasta “8”). Pruebe “E2” seguido de “E4”. Para confirmar que es CORRECTO 
“S”, para rechazarlo teclee “N”. 
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6 


Diagramas y gráficos 
de datos 


Nuestra época se caracteriza, entre otras cosas, por la cantidad de información 
producida y consumida: en la actualidad la información es cada vez más abundante 
y accesible a un mayor número de personas. Un hombre de negocios actual está 
literalmente abrumado por toneladas de documentos repletos de estadísticas sobre 
los temas más variopintos, desde capítulos de gastos a estudios de mercado. Los so- 
ciólogos nos bombardean constantemente con cifras acerca del desarrollo en la in- 
fancia o del aumento registrado en la población de octogenarios en Azerbayjan. Y 
lo que es peor, los ordenadores nos están inundando a diario con listados de datos 
mortalmente aburridos sobre cualquier materia, desde astrología a zoología. ¡Eviden- 
temente, habrá que tomar alguna decisión! 

Los ordenadores han cooperado en la creación del problema, pero pueden también 
ayudar a resolverlo. Podemos representar los datos de forma más “digerible” como 
circulos porcentuales, histogramas, gráficas científicas o diagramas sencillos. Con la 
llegada de los ordenadores personales se produjo un gran aumento en las ventas 
de programas que realizaban este tipo de gráficos, hasta tal punto que representa 
actualmente una de las áreas de mayor crecimiento dentro del campo de los gráficos 
por ordenador. 

En este capítulo comprobaremos que estos diagramas se construyen sin dificultad, 
disponiendo de unos pocos trucos para mejorar nuestra innata habilidad como de- 
lineantes. 


Cursores 


Ante nosotros tenemos una hoja de papel (PAPER) sobre la que dibujar objetos. 
Necesitamos un método para controlar con precisión la posición de estos objetos. 
Generalmente este cometido se realiza con un cursor, controlable externamente por 
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medio de un “joystick” o cualquier otro periférico de entrada equivalente. Nosotros 
utilizaremos el teclado como entrada; aunque en principio es más incómodo que 
el “joystick”, presenta la ventaja obvia de no requerir ningún gasto adicional, y los 
resultados obtenidos a la postre son equivalentes. El subprograma “cursor” del lis- 
tado 6.1 produce dos líneas cruzadas cuyo punto de corte define el pixel o bloque 
en que se sitúa el cursor. Las líneas están dibujadas con tinta transparente (INK 8) 
por medio de una orden OVER. El movimiento del cursor se realiza en las ocho di- 
recciones controladas por las teclas situadas alrededor de la “F” (véase figura 6.1). 
Si tiene un “joystick” u otro periférico similar, modifique el listado 6.1 para intro- 
ducir la información a través del mismo, en lugar del teclado. 

Si pulsa la tecla “F” centrará el cursor en la pantalla. Cuando se mantiene una 
tecla apretada, el movimiento se hace paulatinamente más rápido. Esta propiedad 
hace que el programa sea más útil, ya que un movimiento de cursor pixel a pixel 
resulta tedioso. Para ayudar a posicionar el cursor, se puede conectar y desconectar 
una cuadrícula (rejilla) pulsando la letra “L”. Al pulsar ENTER para introducir un 
punto, la cuadrícula desaparece si estaba conectada. 


CINTROLES LE 


IN NC y A o: EM A E OO 


Figura 6.1 


Listado 6.1 


5700 REM subrutina del cursor (0) 
5701 REM Datos de entrada FX, FY 
| 5702 REM Datos de salida FX,FY,K 
O OW, COL. ( 
5709 REM La siguiente linea solo 


162 


O 


O 


es ejecutada en la primera llam 

ada a la subrutina 

5710 LET FX=1283 LET FY=88% LET 

cursor=5720%3 LET grid=3900 

5719 REM Comienzo de la rutina d 

el cursor 

5720 INK 8: LET A=li¿ LET FLAG=13 
OVER 1 

5729 REM Espera a que se suelten 
las teclas antes de leer el tec 
lado 

37:30: TP INKEYS$< 2%" THEN 160.10 3 
730 

5740 FLOT FX,Os DRAW 0,173: FLOT 
O, F Y: DRAW 233,0 

5730 LET As$=INKEY$: 1F A$="" THE 
N LET A=13 60 TO 3730 

5760 IF CODE A$:464 AND CODE A$:9 
6 THEN LET A$=CHR$ (CODE As+32) 
35770 FLOT FX,O DRAW 0,175: FLOT 
O, FYi DRAW 2334 0 

5780 IF (A$="e" OR A$="d" OR Ag= 


Uc") AND FXi=A THEN LET FX=FX-A 
5770 IF (A$="c" OR A$="v" OR At= 
"b") AND FY+=A THEN LET FY=FY-A 


5800 IF (A$="e" OR A$="r" OR Añ= 
"2%) AND FYi=173-A THEN LET FY= 
FY+A 

3810 IF (A$="1" OR A$="g" OR At= 
"b%) AND FXxi=2oo-A THEN  LET FX= 
EX+HA 

820 1F Aé="4" THEN  LET FX=128: 
LET FY=88 

3830 IF A$="1" THEN GO SURE grid 
3040 IF ASZ3CHR$ 13 THEN  LET A= 
Ati 60 TO 35740 

2830 LET COL=INT (FX/8):3 LET ROW 
=INT ((1735-FY)/8) 

3860 1F FLAG=-1 THEN GO SUE gri 


3870 INE Ox OVER O 
3380 RETURN 


39900 REM rejilla 
3909 REM almacena un control par 
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Ejercicio 6.1 


Prepare un “programa principal” que llame a la subrutina “cursor” y a conti- 
nuación imprima un cuadrado de color en el bloque especificado. Deberá asimismo 
imprimir la fila y columna en que ha dibujado (ROW y COL). Cambie la subrutina 
“cursor” de modo que funcione con las flechas estándar (en las teclas “5”, “6”, “7” 


y 82) 


Atributos 


Podemos aprovechar la idea introducida por el ejercicio 6.1 para fabricar subru- 
tinas que afecten un determinado bloque o conjunto de ellos en sus atributos, sin 
modificar el contenido del display file. El listado 6.2 contiene dos subrutinas que 
modifican respectivamente los colores de PAPER e INK en un número predetermi- 


a comprobar si la rejilla esta e 
n pantalla 

5910 FOR J=0 TO 255 STEF 8: FLOT 
3,0: DRAW 0,1753: IF J2176 THEN 
PLOT 0,J: DRAW 255,0 

5920 NEXT Ji LET FLAG=-FLAG: FLO 
T 255,0 DRAW 0,173: DRAW 235940 
09230 RETURN 


nado de bloques. 


4010 GO SUB cursor INFUT "COLOR 
S'5F: INFUT "NO. DE ELOGQUES (FI 


4020 FOR I=ROW TO ROW+R-1i FOR J 


4030 FRINT AT 1,3 FAFER F3 INE 
83 OVER 15" "4 NEXT Ji: NEXT 1 


Listado 6.2 
AAA 
SE 4000 REM papel 
I 
O | LAXCOL) "3R5Ue"GC 
| 
=COL TO COL+C-1 
e 
| 
e 4040 RETURN 
| 
4100 REM tinta 
Oy 
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4110 GO SUBE cursorí¿ INFUT "COLOR 
"5F2 INFUT "NO. OF ELOQUES (FIL 
AXCOL) "¡Ri"x*"5C 


4120 FOR I=ROW TO ROW+R-1: FOR J 
=COL TO COL+C-1 


O: O] 
| 4130 FRINT AT 1,3; PAPER 8; INE | 
| Fj OVER 13" "2 NEXT Js: NEXT 1 | 
Oi 4140 RETURN ee | 
o = = Ad. a 


Ejercicio 6.2 


Prepare un “programa principal” que sea capaz de LISTar partes de sí mismo, 
y a continuación permita destacar partes del listado con diferentes colores de tinta 
o papel. Escriba instrucciones para modificar los atributos FLASH y BRIGHT de 
los bloques y colóquelas en las líneas 4050 y 4150 del listado anterior (lo que im- 
plica añadir FLASH 8 y BRIGHT 8 a las subrutinas “papel” y “tinta”; intente ave- 
riguar por qué). Combine las cuatro subrutinas agrupándolas en una llamada 
“atributos”. 


Puntos y líneas 


Habiendo ya conseguido un sencillo control interactivo sobre la apariencia de 
nuestro diagrama, debemos ahora ocuparnos de rellenar los detalles del dibujo. Ne- 
cesitaremos subprogramas para marcar puntos (PLOT) y dibujar líneas (DRAW). 
Podríamos utilizar el listado 1.8, pero resultaría tedioso pasar por cada punto de 
la línea. En su lugar usaremos dos subprogramas: “punto”, para marcar pixels in- 
dividuales, y “línea”, en el que especificaremos los dos extremos de un segmento 
para dibujarlo. Los dos subprogramas integran el listado 6.3. 


Listado 6.3 
(35 T A NR ' O e _ E 5 
0 4200 REM punto Ne DO 
| 210 INFUT "ENTER PARA EL CURSOR | | 
"3 LINE A$ ( 
2 E 220 60 SUB cursor: INPUT "SOBRE IQ 
IMPRESION (1000) "50: INFUT " 
COLOR "30 | 
O; 4230 PLOT INE C5 OVER O5FX,PY IN 
E 4240 RETURN | | 
| 
O 2300 REM linea O 
47310 INFUT "ENTER FARA EL CURSOR | 
o! "5 LINE As O 
: 4320 60 SUE cursorí LET SX=FX:»: L 
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ET SY=FY 


| 

Ól 4330 INFUT "ENTER FARA EL CURSOR Ne 
"5 LINE As dl 
340 60 SUB cursor: INFUT "SORRE 

1 IMPRESION (1.000) "50: INFUT " O 


E COLOR "¿Cc k 
4350 FLOT FAFER 85 INK C5 OVER 
O 055X, SY O 
4360 DRAW  FPAFER 83 INE C5 OVER 
01 PX-SX, FY-SY 
O 4370 RETURN 


Ejercicio 6.3 


Prepare un “programa principal” que le permita utilizar “punto” y “línea” para 
hacer un dibujo esquemático de su Spectrum. Incorpore “círculo1” o “círculo2” del 
listado 2.10 en una subrutina “círculo”. Los parámetros que necesite, centro y radio, 
se introducirán usando “cursor”. Adapte el programa realizado en el ejercicio 1.3 
para emplearlo como subrutina para dibujar un polígono de n lados utilizando “cursor” 
para introducir los puntos. Añada una nueva opción al subprograma “línea” que le 
permita dibujar líneas curvas, y construya a continuación un diagrama semejante 
a la figura 1.9 (resultará más sencillo con ocho puntos en el borde en lugar de doce). 

Si dispone de un tablero digitalizador (tablilla gráfica) puede copiar dibujos en 
el tablero introduciéndolos en el ordenador con una versión modificada de “punto” 
y “línea”. Prepare a continuación programas para arreglar el dibujo realizado, es 
decir, enderezar las líneas rectas y suavizar las curvas. 


Grabación y carga de dibujos 


Cuando empleamos tiempo y gastamos energías en dibujar y colorear una pan- 
talla, y al final obtenemos el resultado apetecido, puede ser que a continuación 
deseemos almacenarlo para uso posterior. Evidentemente deberemos poder cargarlo 
también, condición indispensable para poder alterar con un programa un dibujo 
realizado por otro. El listado 6.4 contiene las subrutinas “grabación” y “carga” que 
cumplen ese cometido. 


Listado 6.4 
: e ———, 
1 4500 REM grabacion O | 
4310 INFUT "NOMBRE DEL DIEUJO. ? | 
! "3N$2 1F N$="" THEN RETURN | 
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4520 SAVE  (N$) SCREENS 
1 4530 RETURN Mo | 
4600 REM carga | 
O 4610 INFUT "NOMBRE DEL DIBUJO ? ME 
"NS: TF ON$="" THEN RETURN 
4620 LOAD (NM$) SCREENS 
L--q3 4630 RETURN No 
[REESE Ñ ) 


Ejercicio 6.4 


Ejecute el programa del listado 3.1 (o cárguelo con LOAD si lo almacenó previa- 
mente); cambie la pantalla a tinta verde sobre papel negro. Además encontrará que 
hay sentencias semejantes en los dos programas; para ahorrar espacio, combinelos 
en una sola subrutina. 


Etiquetas 


Los cuatro listados presentados hasta ahora forman la base de nuestro paquete 
de construcción de diagramas; sin embargo, no hemos puesto hasta ahora etiquetas 
en los mismos. Esta tarea la realiza el programa “etiquetado” que se muestra en 
el listado 6.5. Obsérvese que este listado hace referencia a otros programas no ex- 
puestos todavía: esta situación es típica de una construcción de subrutinas en forma 
modular estructurada, tal como la que hemos adoptado en este libro. En la práctica 
esto significa que, cuando tropezamos con un problema demasiado grande como 
para resolverlo al momento, simplemente le asignamos un nombre y lo abordamos 
más adelante. En el programa “etiquetado” está previsto que las tiras de caracteres 
pertenecientes al juego número 5 (es decir, aquellas que comiencen por “5:”), se im- 
primirán en vertical. Por razones que se comentarán más adelante, vamos a reservar 
un carácter especial (7:) para indicar que la tira de caracteres correspondiente a la 
etiqueta ha de imprimirse con caracteres más estrechos, utilizando una subrutina es- 
pecial. Supondremos además que disponemos de una subrutina llamada “set” que 
cambia el juego de caracteres (esta subrutina se puede encontrar a partir de la ins- 
trucción 50 del listado 6.6). 


Listado 6.5 
E ' AA a E a 
] e 3400 REM etiquetado O ] 
| 5410 GO SUB cursorí INFUT "JUEGO 
Y ¿LITERAL "1%: 1F A$="" THEN 60 
¡33 TO 5410 ME 
: 5420 INFUT "COLOR "35082 INE VAL TN 
AS (M0"+0$) 
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| 3430 1F A$( TO 2)="1:" THEN FRI DA 
NT AT ROW, COL5A$(3 TO): GO TO 5 
O 510 No 
' 3439 REM El juego 5 es imprimido 
| en vertical 
O) 5440 IF A$( TO 22<:"5:" THEN GO O) 
TO 5470 
04590 LET S=5: GO SUBE set LET As 
O =A$(Z TO) qe 
3460 FOR I=1 TO LEN A$: FRINT AT : 
YN ROW-TI+1,COLIA$(1):3 NEXT ll: GO T : 
O 5510 ES 
5469 REM El juego 7 usa la rutin 
O a de variacion de ancho ; '0) 
| 3470 IF A$( TO 2)23"7:3" THEN 60 | 
TO 35490 : 
O 3480 LET A$=A$ (3 TO) GO SUB th o 
| ins 60 TO 5310 
3489 REM Comprueba que se da un 
| 


De numero valido O 
' 35490 LET S=VAL A$(1):3 IF 56 OR : 
' S5<1 OR A$(2)22":" THEN 60 TO 553 

O 1 10 qe 
5499 REM Imprime el literal del 
juego apropiado 


2% 35500 GO SUB sets FRINT AT ROW,CO E 

' LiAs(3 TO) | 

: 5510 LET S=1: GO SUB set Br 

| ELA 5520 INK 0: RETURN E 
Ls de ais _.. o .. pa 1 


Gráficos de datos 


Vamos a introducir un “programa principal” de propósito general y una subrutina 
de selección de opciones, con fin de atar algunos cabos sueltos. Por desgracia, esto 
hará que aparezcan tantos cabos nuevos como los que acabamos de atar, pero al 
menos nos permite tener una visión global de las tareas que quedan por resolver. 
Introducimos identificadores (en minúsculas) para marcar subrutinas que habrá que 
escribir más adelante, junto con otras cosas, para dibujar tipos especiales de dia- 
gramas; por ejemplo, histogramas, círculos porcentuales (familiarmente conocidos como 
“tartas”) y gráficas. 

El listado 6.6 lleva incorporada, antes del programa principal, una versión re- 
sumida delas partes del generador de caracteres del capítulo 5 que se necesitan 
para utilizar juegos de caracteres alternativos. 


168 


La mayor parte de los diagramas de este libro que no son dibujos generados 
directamente por los ejemplos han sido realizados con un programa que contiene los 
listados desde 6.1 a 6.7. Se ha utilizado también para poner etiquetas a muchas 
figuras producidas por programas; por ejemplo, la figura 4.1. 


Listado 6.6 


l 


T ps 3 T 
Ó- 8 REM Fara 16K hacer los camb Ma 
| ios del listado 5.5 
9 REM Inicializacion para Usa E 
: r juegos de caracteres alternos 
10 CLEAR 62294 
| 20 INK O: PAPER Zi: CLS : Dim $ 
| 1 (6) 
: ZO FOR lI=1 TO 6: READ S(l): NE 
' XT Il: DATA 15360, 62039, 62807,635 
| 75,64343, 64848 
40 LET set=50: LET S=1: 60 SUBE 
set: GO TO 200 
| 
| 
| 


SO REM Cambia al juego S 
60 LET HI=INT (S(S)/256):1 LET 
LO=S (5) -HI*256 

70 FPORE 23606,L0: FOKE 23607, H 
O Il: RETURN 
80 REM Carga caracteres del ca 
| sete 
De 90 INFUT "NOMBRE  "¿N$:s IF N$ 
="" THEN RETURN 
100 INFUT "NO. DE JUEGO % "389: 
O IF (8:22 OR S>6) AND S<>11 THEN 
GO TO 80 
O 110 INFUT "Arranque el casete y 

] de ENTER."35 LINE X$ 
120 IF S=11 THEN LOAD N$ CODE 
o! (5 (5)+256) ,768+168: RETURN 

130 IF S=6 THEN LOAD N$ CODE ( 

5 (S)+512),168: RETURN 
O 140 LOAD N$ CODE (S5(S)+236),768 
: RETURN 


O 


O 2 Q 


de 200 REM programa principal 
210 LET restart=280: LET query= 
500 


O 
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170 


220 LET histo=1000: LET pie=200 
Or LET graph=2000 

230 LET paper=4000: LET ink=410 
Or LET point=4200: LET line=4300 
: LET save=4500: LET load=4600: 
LET number=4700 Ñ 
2040 LET charload=80: LET create 
=5000: LET thin=5200 

230 LET label=34001: LET cursor= 
0700 

260 LET I$="DEFINIR CARACTERES 
2 "e 60 SUE querys IF YES: THEN 
GO SUE create 

270 LS 2 LET I$="CARGAR CARACT 
ERES  ": G0 SUB querys 1F YES T 
HEN GO SUB charload: 60 TO 270 
280 LET I$="CARGAR DIRUJO 2 "x 
GO SUB query: 1F YES THEN 60 SU 
B load 

290 LET I$="DIBUJAR DIAGRAMA? " 
¿ 60 SUE query: 1F NOT YES THEN 
60 TO 260 

3500  LET 1I$="HISTOGRAMA, CIRCUL 
O FORC. O GRAFICA 2 ": GO 
SUBE quer y 

210 LET diagram=0: 1F A$="h" TH 
EN LET diagram=histo 

320 IF Aé="c" THEN  LET diagram 
=pie 

330 IF A$="g" THEN  LET diagram 
=graph 

340 IF diagram=0 THEN 60 TO 29 
O 

2500 60 SUB diagram 

360 LET I$="ETIQUETAR DIBUJO 
"3 GO SUB query: 1F YES THEN GO 
SUB labels 60 TO 360 

370 LET 1I$="CAMBIAR COLOR FAFEL 
20" 60 SUB query: 1F YES THEN 
GO SUB papers 60 TO 2370 

280 LET I$="CAMBIAR COLOR TINTA 
2": 60 SUE query: 1F YES THEN 
G0 SUE ink: 60 TO 2380 

390 LET I$="DIBUJAR UN FUNTOS " 
: GO SUB query: 1F YES THEN 60 


: SUBE point: 60 TO 390 ¡ 
O! 400 LET Is="DIBUJAR LINEA? "xi 6 
| O SUB querys 1F YES THEN GO SUE ¡o 
| lines: 60 TO 400 
Y 410 LET I$="TERMINAR DIBUJO ? " O 
: 2 60 SUE query IF NOT YES THEN 
60 TO restart 
EN 4ZÓ LET I$="SALVAR DIBUJO 2 ": O) 
| GO SUBE query: IF YES THEN 60 SU E 
i E save 
0 430 STOF ' 
500 REM opciones | 
O 510 LET YES=0 0 


| 320 INFUT (1$)3 LINE A$s IF As$= 
¡DA 2" THEN RETURN 
O 330 LET As$=A$(1)1 IF CODE A$296 Ó 
THEN LET A$=CHR$ (CODE A$+22) 
340 LET YES=(A$="5") 
3300 RETURN pS 


Caracteres especiales 


Para completar nuestros preparativos para la subrutina “etiquetado” (label, lis- 
tado 6.5), necesitamos crear un juego de caracteres girados, que colocaremos en el 
juego número 5 para escribir etiquetas verticales. Esta tarea está asignada al sub- 
programa “crear” del listado 6.7, que utiliza algunas técnicas del generador de carac- 
teres para copiar una versión girada del juego 1 en el juego 5. 


Listado 6.7 


f T y A E Já | 


5000 REM crear/caracteres ( 
2009 REM Crea caracteres para la 
E rutina del histograma 
QU JOLTO DIM. PCs DIM. .DC) LET Dl ( 
150 LET D(2)=25591 LET DC)=240 | 
E 5020 FOR 1=0 TO 63 FOR J=0 TO 7 y | 
SOZO LET F(1)=USkR "A"+1XB8+Ji LET ¡e | 
F(2)=USR "H"+1*8+J | 
5040 LET F(3)=USR "0"+148+J O 
5050 FOR K=1 TO Zi FOKE F(k),OÓx 
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NEXT E 

5060 1F J:1 THEN FOR Kid TO Zi 

FOKE F(E),D(K)3 NEXT KE 

5070 NEXT Ji: NEXT 1 

5078 REM Copia el juego 1 en el 

5 con los caracteres rotados . 

5079 REM Fara 16K (O=2108:31 

5080 DIM BE$(8,8): LET Tu25S62 FOR 
I=1 TO 8: LET T=T/2: LET FC(1)=T 

2 NEXT li LET F=15616:3 LET Q=645 


99 
5090 FOR 1=32 TO 127: FOR J=1 TO 
8: LET B$(J)="00000000"s NEXT J 


5100 FOR J=1 TO 8: LET T=FEEKR F: 
FOR E=1 TO 8 

s110 IF To=F(E) THEN LET T=T-=F( 
E) LET E$(9-E,J)="1" 

5120 NEXT Es LET F=F+1: NEXT J 
5130 FOR J=1 TO 8: FOKE Q,VAL (" 

EIN "+B$(J)): LET QO=(+1is NEXT J 

5140 FRINT AT 10,103 "ROTANDO "s 

HR$ 1 

5150: NEXT Il: CLS 

5160 RETURN 


5200 REM variacion de ancho. 
39201 REM Datos de entrada ROW, 0 
L,A$ 

3209 REM Imprime cualquier otro 
caracter en la mitad izquierda d 
e los bloques 

3210 LET S=4: GO SUB set: OVER 1 
LES TEC=GUL 

3220 FOR l=1 TO LEN As STEF 2: F 
RINT AT ROW, TOSA$(I): LET TC=TC+ 
14 "NEXT -L 

5229 REM Imprime los otros carac 
teres en la mitad derecha 

20 LET S=Z4 60 SUE sets LET TC 
=COL 

5240 FOR I=2 TO LEN As STEF 21 F 
RINT AT ROW, TCF5A$(I): LET TC=TC+ 
ls NEXT 1 

5230 LET S=1i: 60 SUE sets OVER O 
5260 RETURN 


Antes de generar los caracteres, el programa redefine el conjunto de caracteres 
gráficos definidos por el usuario haciéndolo tres conjuntos de siete caracteres que 
se pueden observar en la figura 6.2. 


ds A CD ARAFILEAOS DEFINICION 


POR ELL 


Pa 


Figura 6.2 


De este modo se puede conseguir rellenar de tinta la mitad derecha o izquierda 
del bloque, o el bloque completo, comenzando desde abajo. Con estos caracteres 
se pueden conseguir líneas horizontales de diferentes grosores; sin embargo, su uso 
principal es el trazado de histogramas. 

De aquí al final del capítulo discutiremos algunos tipos comunes de diagramas. 
La variación existente es enorme, por lo que no resulta práctico abordar todas las 
posibilidades. Por consiguiente, estudiaremos detalladamente unos cuantos ejemplos 
representativos de los tres tipos principales de gráficos: histogramas, círculos porcen- 
tuales y gráficas. A partir de ahí se pueden diseñar variaciones que permitan pre- 
sentar los datos en la forma que se desee. Obsérvese de nuevo que los ordenadores 
de 16K han de introducir cambios comentados en el Apéndice A. 


Histogramas 


Los histogramas (también llamados diagramas de barras) pueden construirse con 
nuestros programas de cualquier altura y con pixels de cualquier color, a condición 
de que las barras tengan al menos medio bloque de anchura. Como esto será lo 
usual, expondremos un método para calcular el espaciado y anchura de las barras, 
una vez conocido el número de éstas que se desea dibujar. La primera parte del 
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listado “histograma* (listado 6.8) dibuja los ejes, etiqueta el vertical y pregunta cuántas 
barras se desea dibujar. A continuación se calcula la anchura de las barras y es- 
pacios intermedios (GAP) como múltiplos de medios bloques, a través de un método 
que asegura que 1/2 < GAP < X. Al ir introduciendo los datos, el programa utiliza 
los caracteres de bloque y medio bloque, junto con el juego de caracteres creado 
anteriormente, y con ellos construye tiras (strings) que representen la altura total 
de cada barra. A la tira conseguida se le antepone “5:”, y se usa la subrutina “barra” 
para imprimirla verticalmente. Obsérvese que los ejes se sitúan en los bloques adyacen- 
tes a los de comienzo de las barras, con el fin de garantizar la independencia de 
color de unas y otros. 


Listado 6.8 


1000 REM histograma/tipo 1 
1009 REM Iguala el puntero a la 
subrutina que imprime barras 

(E 1010 LET bar=1320 ( 
1019 REM Halla la escala y dibuj 
a los ejes 
1020 INFUT "RANGO VERTICAL "¡YE; 


”n A A E 
1030 IF YB>=YT THEN G0 TO 1020 

YD 1040 LET YSCALE=128/ (YT-YE) '0) 
1050 FLOT 47,152: DRAW 0,12% D 

E RAW 201,0 

3 1059 REM Etiqueta el eje vertica O 
1 ) 

; 1060 LET YDIF=(YT-YE)/4%: LET TIC 2 

Y ES : 
1070 FOR l=1 TO Si: LET TE=INT CT 

O ICK+O0. 5) O 


1080 LET Y=232*1I-8: FLOT 47,Y: DR 

AW 3,01 LET ROW=INT ((176-Y)/8) 

E. ad ( 

| 1090 LET A$=STR$ (TE): IF LEN As Ñ 
“E THEN  LET A$=A$( TO 3)3 IF TE 


ESA 2999 OR TE“-99 THEN LET Ag="wxx* 
| 1100 LET COL=1: IF TE>=0 THEN L 
O ET COL=COL+1 
| | 1110 IF ABS TEZ210 THEN LET COL= 
a COL+1 
O) 1120 IF ABS TE2100 THEN LET COL O 
=COL+1 
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1130 FRINT AT ROW, COLiA$: LET TI 

CE=TICE+YDIF 

1140 NEXT 1 

1149 REM Lee el numero de barras 
requerido 

1150 INFUT "No. DE BARRAS "NE 

1160 LET X=INT (235/NB+0,5)/21 LE 

T GAF=INT  (SO/NBE-2%X)/2 

1170 LET GF=(23—NB*X- (NE-1)*GAF) 

2 LET GF=INT ((GF+1)/2)/2 

1179 REM Fosiciona el puntero de 
columna en la barra 1 y repite 

el bucle para cada barra 

1180 LET COL=6+6GFi: FOR I=1 TO NE 

1190 LET Y$="DATOS FARA RARRA "+ 

STR$ 1+% "35 INFUT (1$)5D5" COLOR 
"503 INK C: LET W=X 

1199 REM Los valores por debajo 

del eje horizontal tienen altura 
minima 

1200 TF Di=YE THEN LET D=Q% LET 
Hits 60 TO 1220 

1209 REM Calcula el nunero de bl 

oques de altura para la barra 

1210 LET D=D-YEs LET H=INT (D*YS 

CALE+O, 3) 

1220 LET TIH=INT  (H/8): LET Lg="" 
LET MB=""g LET O R$="" 

1229 REM Construye literales par 

a las barras de la izq», medio, 

y derecha 

1230 FOR J=1 TO IH: LET Lé=L.$+CH 

R$ 1331 LET Mé=Mé+CHR$ 143 LET 

R$=R$+-CHRS 138 

1239 REM Halla el no. de element 

os de pantalla para el caracter 

especial superior 

1240 NEXT Jí LET RH=H-1Hx*83 IF R 

H=0 THEN 60 TO 1260 

1249 REM Fone caracteres especia 

les en la parte superior de las 

barras 

200 LET L$=L$+CHR$ (151-RH): LE 

To Mé=M$+CHRS$- (158-RH) 2: LET R$=ks$ 

+OHRKS$- (1635—RH) 
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1260 IF COL=INT (COL) THEN GO T 
55 O 1280 SR 
1270 LET Aé=L$: GO SUE bar: LET 

WeW-=0, 51 LET COL=COL+0, 5 
23 1279 REM Imprime el numero de bl 0 
oques completos necesarios p 
1280 IF Wi=l THEN LET A$=M$:2 60 


O SUB barí LET WeWd-11 LET COL=COL. Ó 
+11 60 TO 1280 

O 1290 1F W0,1 THEN. LET A$=R$1 G 
O SUB barí LET COL=COL+0.5 ; 
12992 REM Mueve el puntero de col 

O uma a la siguiente barra y rein ES 


( icia el bucle 
1300 LET COL=COL+GAF:* NEXT I ¡ 
O 1310 INE Oz RETURN Ad 


; 1320 REM barra 
O 1321 REM Datos de entrada COL, As 
| 1329 REM Imprime A$ verticalment 
| e—desde la columa 19% en adelant 
O e ) 
1330 FOR Ezl TO LEN A$i FRINT AT 
pe 19-K,y INT COLFA$(E)2 NEXT E 
Ó 1340 RETURN 


La figura 6.3, un diagrama que representa la lluvia mensual promedio en Can- 
tabreda, ha sido realizado con el subprograma “histograma/tipo 1” del listado 6.8 
seguido del programa de etiquetado para los rótulos. 


Ejercicio 6.5 


Introduzca variaciones en el programa “histograma” por medio de subrutinas que 
puedan integrarse a voluntad con una orden MERGE. Escriba una subrutina que 
calcule la posición de parejas de barras, donde las barras de la misma pareja estén 
separadas por medio bloque, en tanto que las parejas de barras adyacentes disten 
entre sí al menos un bloque. Utilícela para dibujar diagramas semejantes al de la 
figura 6.4. 

Un ejemplo de sustitución de' “histograma/tipo 1” lo tenemos en el listado 6.9, 
llamado “histograma/tipo 2”. En este caso el cálculo de la anchura de las barras se 
modifica para conseguir valores enteros de bloques para X y GAP. Se necesitan dos 
datos para cada barra, que especifican el rango de altura MAXima y MINima de 
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Figura 6.4 


la misma. Se pueden-conseguir resultados como el de la figura 6.5, por medio de 
órdenes OVER. Si desea comprender en profundidad el funcionamiento del programa 
(y de otros programas de este libro), es aconsejable distribuir hábilmente órdenes 
PRINT por el listado, de forma que se pueda seguir la lógica de los algoritmos 
a medida que se van ejecutando. 


177 


Listado 6.9 
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PEROMELD TL MEMN=SILIAL 


CE TEMPERATURAS 


LAZSTAROPOBETE 


lus 


Figura 6.5 


1000 REM histograma/tipo 2 

1009 REM Fija el puntero a la ru 
tina que imprime barras 

1010 LET bar=1320: DIM 0$(2,3)5 
LET 08 (1)="MAX"x LET 0$(2)="MIN" 
1019 REM Halla la escala y dibuj 
a los ejes 

1020 INFUT "RANGO VERTICAL "5YE; 
"” A ” E YT 

1030 1F YRBe=YT THEN 60 TO 1020 
1040 LET YSCALE=128/ (YT-YE') 

1050 FLOT 47,152: DRAW 0,-129: D 
RAW 201,0 

1059 REM Etiqueta el eje vertica 
1 

1060 LET YDIF=(YT-YE)/4s3 LET TIC 
E=YB 

1070 FOR I=1 TO SS: LET Tke=INT CT 
ICK+O, 5) 

1080 LET Y=32*I-81 FLOT 47,Y:2 DR 
AW -3,0: LET ROW=INT ((176-Y)/8) 
md 


Er 


O 


1090 LET A$=STR$ (TE)12 IF LEN As 

3 THEN  LET A$=A$( TO 2)3 IF TE 

2999 OR TEi-99 THEN LET Ag="x% 

1100 LET COL=18 1F-TE>=0 THEN L 

ET COL=COL+1 

1110 IF ABS TEX“ 10 THEN  —LET COL= 

COL+1 

1120 IF ABS TEzx100 THEN  LET COL 

=COL+1 

11:30 FPRINT AT ROW,COL;+A$: LET TI 

CE=TICE+YDIF 

1140 NEXT 1 

1149 REM Lee el no. de barras re 

querido y calcula un ancho enter 

o para ellas 

1150 INFUT "No. DE EARRAS "3NE: 

OVER 1 

1160 LET GAF=INT (13/NB): LET X= 
INT ((26-GAFXNE) /NE:) 

1170 LET GF" (23-NB*X-(NE-1)*GAF') 
2 LET GF=INT ((GF+1)/2) 

1179 REM Fosiciona el puntero de 
columna en la primera barra y rf 

epite el bucle 

1180 LET COL=6+GF:3 FOR I=1 TO NE 
zz INFUT ("COLOR FARA BARRA "+STR 

$ UI" "Os INE E 

11892 REM Bucle de entrada de val 
ores maximos y minimos para barr 

as 

1190 FOR O=1 TO 21 LET I$=0$(0)+ 
" FARA EARRA "+STR$ I+" "ia INFUT 

(1$)3D0 LET W=X 
1200 1F Di=YE THEN  LET D=0% LET 

H=13 GO TO 1220 
1209 REM Calcula el numero de tl 
oques completos para las barras 
1210 LET D=D-YBi+ LET H=INT (D*YS 
CALE+O, 5) 

220 LET IH=INT (H/8): LET M$="" 
1229 REM Construye una cadena pa 
ra las barras 
1230 FOR J=1 TO IH: LET Mé=M$+CH 
R$ 143 
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O 1239 REM Imprime un caracter esp 
ecial para la altura remanente 

1240 NEXT J1 LET ORH=H-1H*8: IF RK 
EA H=0 THEN GO TO 1260 e 
1250 LET Mée=M$+CHR$  (158-RH) : 
1260 IF O=1 THEN  LET OCOL=COL 


O 


| O 1270 1F O=2 THEN. LET COL=0COL. E 
| 1279 REM Imprime el numero de bl 
: oques de ancho completo requerid 
O | ea p a dE 
| : 1280 IF Wezl THEN. LET A$=M$2 GO 
| 2 SUE bar LET WeWd-1i LET COL=COL. o 


OS +1: 60 TO 1280 
| 1290 LET COL=COL+GAF: NEXT O: NE 
O! Xx 1 
| 1300 INE Oz OVER O: RETURN 


¡SN 1320 REM barra O 
. 1321 REM Datos de entrada COL1As$ 
1329 REM Imprime A$ verticalment 
pr O e de la columna Aé en adelante LS 
| 2320 FOR E=1 TO LEN As FRINT AT 
| 19-HE,y INTO COL5A$(K)5 NEXT E 
ÚU 1340 RETURN U 


Una buena cosa del BASIC es que permite introducir sentencias STOP en un 
programa, interrogar al ordenador acerca de los valores de las variables y CONTinuar 
la ejecución sin afectar el programa. Este sistema es muy útil para corregir pro- 
gramas, así como para comprender listados ajenos. 


Ejercicio 6.6 


Intente utilizar distintos colores de papel e imprima las barras con OVER a fin 
de conseguir barras de dos colores. Tenga cuidado cuando utilice datos cuya di- 
ferencia de altura sea inferior a ocho pixels. 


Cuando se usan dos colores diferentes para cada barra (ejercicio 6.6) pueden surgir 
problemas: concretamente, si el valor MACimo y MINimo caen en el mismo blo- 
que, dicho bloque tendrá asignados tres colores, los dos de la barra y el fondo. Se 
puede obviar el problema comparando la longitud de las tiras (strings) que con- 
tienen los caracteres para MAX y MIN: si son de la misma longitud, se trunca 
MIN eliminando el último carácter. Este procedimiento evita el problema de los 
colores pero resulta ligeramente inexacto. Otra forma de evitarlo es asignar a la parte 
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inferior de la barra el mismo color que al fondo, lo que garantiza que la barra se 
pueda dibujar con exactitud con dos colores como máximo por bloque. 

Hay una enorme cantidad de variaciones sobre el tema; por ejemplo, dibujar 
barras por encima y por debajo de una línea central para mostrar fluctuaciones 
relativas (por ejemplo, en cambio de divisas). Con las ideas apuntadas deberá ser 
capaz de producir el tipo de histograma que se ajuste más a sus propias especi- 
ficaciones. 


Circulos porcentuales 


Los círculos porcentuales o diagramas de “tarta” son los preferidos por los eco- 
nomistas y biólogos, unos explicáandonos quién o qué se lleva la mayor tajada del 
pastel de gastos, los otros mostrando qué bacteria se lo está comiendo. A un pro- 
grama de este tipo se le exigirá normalmente que sea capaz de dibujar círculos 
de radio variable, que se pueda sacar un trozo de tarta para mostrarlo por separado, 
y que permita colorear o sombrear las distintas porciones. La subrutina “círculo 
porcentual” (pie) dada en el listado 6.10 realiza las dos primeras tareas utilizando 
“cursor” para centrar el diagrama, e introduciendo el radio en pixels con un INPUT. 


Listado 6.10 
O 2000 REM circulo porcentual O 
2009 REM Fija los punteros de la 
s rutinas 
2010 LET hatch=2300s LET in=2800 E 
2019 REM Se leen todos los segme l 
Ma ntos para calcular la escala ang ] 
SIN ular qe, 
2020 INFUT "No. DE SEGMENTOS "5N 
> Y Bi INFUT "COLOR "5C$: LET C=VAL 
| (MO"4+0$)1 LET TOT=0 O 
2030 DIM D(NE)O: FOR l=1 TO NE%2 1 
' NFUT ("DATO "+STR$ I+"i ")5DC1)3 e 
: LET TOT=TOT+D(1)3 NEXT 1 
2039 REM Usa el cursor para espe 
ex cificar el centro del circulo O 
| 2040 INFUT "ENTER FARA CENTRAR e l 
l L CIRCULO"s LINE Ys 
555 20530 GO SUB cursori LET XC=FX3 L : O 
| ET YC=FY | 
2060 INFUT "RADIO (EN FIXELS) "iu l 
eu RAD O 
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O 


O 
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2070 LET ASCALE=2XFI/TOTs+ LET A1 

1/2 

2080 FOR I=1 TO NE 

2090 INFUT "ENTER FARAÁA CENTRAR F 

ORCION": LIME Y$ 

2100 LET FX=XC3 LET FY=YC1+ 60, SU 

É cursors LET ANG=ASCALEXD(I): L 

ET A2Z=A1-ANG 

2109 REM Si se mueve la porcion 

calcula el desplazamiento en su 

bisectriz 

2110 1F PX=XC AND FY=YC THEN 60 
TO 2140 

2120 LET A=A1-ANG/Z22 LET DIST=S5 

AR CCERXMXCO (FX X (0) + (FEV YE) (FRY 

YC)) 

2130 LET FX=INT  (XC+DIST*COS AZ+ 

00201 LETOFY=INT (YC+-DISTASIN AZ 

+0.) 

2139 REM Comprueba si se requier 

e sombreado y de que tipo 

2140 INFUT "SOMBREADO (5, Y/Xyanm) 
"34H$: 1F CODE H$:296 THEN  LET OH 

$=CHR$ (CODE H$+32) 

2149 REM Fregunta la distancia e 

ntre lineas y el desplazamiento 
21590 1F Héxs"n" THEN INFUT "INC 
s "GJUME, "DESF. "¡REM 

2139 REM Dibuja el segmento del 

ED ELIO 

2160 INE Ci PLOT FX,FY2 LET>-X1=1 

NT (RADx*COS A1+0,.5):3 LET Y1i=INT 
(RADXSIN Al+0.5): DRAW Xd, Y1 

2170 LET A28=A2% LET ASTO=ANG: L 

ET XA=FX+X12 LET YA=FY+Y1 

2180 LET XB=INT (RAD*XCOS A2+0,.3 
¿ LET YE=INT (RAD*XSIN AZ+0,5) 

2190 FOR T=841 TO Az STEFR -3/RAD 

2200 LET X2=INT (RADACOS T+0.5)3 
LET Y2=INT (RADXSIN T+0,.5)2 DRA 

W x2-=X1ly Y2- Yi LEFT Xi=XxX2s LET Y1 

=Y2 

2210 NEXT Ti DRAW XE-X2, YE-Y22 L 

ET X2=XB3: LET Y2=YR 

2220 DRÁW —XE,—YBEz 1F Hs$="n" THE 


O 


: N 60 TO 2250 | 
> 2228 REM Llama a la rutina de s0 ' 
mbreado si se necesita Nr 
2229 REM Si el angulo es FI hac 
1 e el sombreado en dos partes 
2230 IF ASTOS+FI THEN  LET A2l=A1- 
; Fl LET XB=2XFX-XA: LET YE=2x*FY- 
E YA: GO SUB hatchi: LET XA=XBEs LET O 
MA YB: LET Al=A2:2 LET A2=A25 
240 LET XBE=FX+X2% LET VEB=FY+Y2:% 
15) “60 SUB hatch O 
| 2249 REM Reinicia el bucle para 
el siguiente segmento 
O 220 LET Al=A21 NEXT liz RETURN 


A continuación se introducen los datos individuales por INPUT y se calcula el 
total, TOT. Este último valor se utiliza para calcular una escala en radianes para 
dividir la tarta. Cada trozo se centra con el cursor, tomando los desplazamientos 
de éste como distancias en la bisectriz de la porción, no como posiciones absolutas. 
Con cada nueva porción el “cursor” reaparece en el centro original de la tarta. La 
figura 6.6 se ha realizado utilizando esta subrutina. 


DIETA DA 
MeEcTOR PRIMARIO 


Figura 6.6 
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Sombreado 


Un sombreado por trozos de un diagrama tipo tarta implica intersecciones de 
líneas con los límites de cada porción. Para simplificar los cálculos sombrearemos 
con líneas verticales y horizontales únicamente, pudiendo por tanto utilizar en una 
porción determinada líneas verticales únicamente, líneas horizontales o bien una mezcla 
de ambas. Además sombrearemos siempre porciones menores de T radianes (180 
grados). Los trozos mayores se consideran como dos porciones independientes, el 
primero de z radianes y el otro del resto, y se sombrearán por separado. 

La subrutina “círculo porcentual” pregunta si se desea en el trozo un sombreado 
horizontal (respuesta “x”), vertical (respuesta “y”), ambos (respuesta “xy”) o ninguno 
(respuesta “n”). 

Cada uno de los trozos de tarta a sombrear está circundado por dos segmentos 
rectilíneos y un arco circular. Debemos encontrar la parte de la línea de sombreado 
que cae dentro de esta superficie (suponiendo que exista tal parte). Como la máxima 
apertura angular a sombrear son z radianes, las únicas posibilidades que aparecen son: 


1) la línea de sombreado no corta la tarta (y por tanto no es tal); 
2) la línea corta el arco en dos puntos; 

3) la línea corta el arco y uno de los segmentos; 

4) la línea corta los dos segmentos. 


Hay casos particulares, como que la línea corte precisamente en la intersección 
entre el arco y un segmento; de cualquier forma, estos casos pueden englobarse a 
nuestros efectos en uno de los cuatro ya apuntados. 

Explicamos el algoritmo de sombreado con líneas horizontales: el razonamiento 
esidéntico para verticales. En primer lugar localizamos los valores MAXimo y MINimo 
de y que acotan la porción de tarta. A continuación consideramos todas las líneas 
horizontales de sombreado como rectas de la forma Y = k*JUMP + REM entre 
los límites 0 < REM < JUMP -— 1. En cada recta calcularemos los dos puntos de 
intersección con los segmentos prolongados, y comprobaremos que su valor MU 
está comprendido entre 0 y 1, es decir, que la intersección está comprendida entre 
el centro del círculo y el arco. Seguidamente buscaremos los dos puntos de inter- 
sección de la línea de sombreado con la circunferencia a la que pertenece el arco. 
A partir de estas intersecciones seleccionaremos los dos puntos de corte del trozo 
de la tarta con la línea de sombreado, y los uniremos con un segmento. 

El proceso completo está programado en la subrutina del listado 6.11. Un resul- 
tado típico es el que se muestra en la figura 6.7. Obsérvese que para rellenar por 
completo la porción basta con hacer JUMP igual a 1. 


Listado 6.11 


: = a 
o? 2300 REM sombreado | > de 
y 2309 REM Si se requiere sombread | 
! o cruzado ejecuta la rutina dos . | 
20 Veces EE 
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0) 


2310 IF Hé="xy" THEN LET Hgs="x" 
¿ GO SUB 23201: LET H$="y"4» (0 SU 

B 2320: LET H$="b"wx RETURN 

219 REM Fija las variables de s 

ombreado para la direccion de la 

s lineas 

2320 IF Hé="y" THEN  LET FZ=FX: 

LET FT=FY: LET ZA=XA: LET TA=YA: 
LET ZBE=XE: LET TE=YE 

2330 IF Hs="x" THEN LET FZ=FY: 

LET PFT=FX: LET ZA=YA3 LET TA=XAs 
LET ZB=YB: LET TB=XE 

2340 DIM Z(3) 

2349 REM Halla las coordenadas m 
axe y min. de las lineas dentro 
del segmento 

2230 LET T=F1/21 LET MAX=0: LET 
MIN=0 

22060 LET VAL=SIN Alis 1F H$="x" T 
HEN LET VAL=C086 Al 

2370 1F MAXZVAL THEN  LET MAX=VA 
L 

2380 IF MINSVAL THEN  LET MIN=VA 
E 

2290 1F T+A1l THEN LET T=T-FI/23 
GO TO 2390 

2400 IF TZ2A2 THEN GO TO 2450 
2410 LET VAL=SIN Ti 1F H$="x" TH 
EN —LET VAL=COS T 

2420 IF MAXZVAL THEN  LET MAX=VA 
Le 

2430 IF MINS>VAL THEN  LET MIN=VA 
L 

2440 LET T=T-F1/21: GO TO 2400 
2450 LET VAL=SIN AZ: IF Hs$="x" T 
HEN LET VAL=C0S AZ 

2460 IF MAXZVAL THEN  LET MAX=VA 
Le 

2470 IF MINS2VAL THEN  LET MIN=VA 
E 

2480 LET NEWMIN=INT (INT (RADX*MI 
N+1) /JUME) *JUMP+REM 

2489 REM Encuentra la intersecci 
on de las lineas con el radio y 
el arco 


O 
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O 
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2470 FOR EXNEWMIN TO MAXXARAD STE 

E JUMP 

2499 REM Almacena las coordenada 

s de las intersecciones en la ma 

AL 

200 LET 1IC=0 E 

2010 LET DENOM=TA-=FT3+ IF DENOM=0 
THEN 60 TO 2340 

2520 LET MU=E/DENOM: IF MUZO OR 

MU*1 THEN GO TO 2340 

20 LET IC=IC+18 LET ZC(1C)=FZ+M 
Je (ZA-FZ) 

2040 LET DENOM=TB-=FT* IF DENOM=0 
THEN ——G0 TO 2380 

259590 LET MU=sE/DENOM:* 1F MUZO OR 
MUS1 THEN GO TO 25380 

2560 LET IC=IC+13 LET ZC(1C0)=FZ+M 
LIX (ZE-P7Z) 

2369 REM Antila los puntos de int 
erseccion duplicados 

2070 IF IC=zf AND Z(1)=Z(2) THEN 
LET 1C=1 

2380 1F ICX<22 THEN 60 TO 2610 
2389 REM Dibuja las lineas de 50 

mbreacdo 

2990 IF Hé$="y" THEN  FLOT Z(1),E 
+FT: DRAW Z(23-Z(1),01 60 TO 271 

O 

2600 1F Hé="x" THEN. FLOT E+FT,Z 
(123 DRAW 0,Z(2)-Z(1):; GO TO 271 

0) 

2610 LET DISC=RADARAD-EXE: IF DI 
5020 THEN 60 TO 2710 

2620 LET DISC=INT (SQF DISC+O,5) 
Z6ZO LET Z22=FZ+DISC3* LET AZ=DISC 
¿ 60 SUB ins 1F OUT THEN 60 TO 
2630 

2640 LET IC=IC+18 LET Z(1C)=2Z2Z 
2630 LET Z22=FZ-D1SC03 LET AZl=-D1IS5 

Cs 60 SUB in: 1F O0UT THEN 60 TO 
2670 

2660 LET 1IC=IC+18 LET Z(10)=2ZZ 
2670 AF 632 THEN" 060 TO. 2710 

2680 IF IC=2 THEN 60 TO 2390 


2690 1F Z(1)=Z(2) THEN LET Z(2) 


O 


O 


O 


O 


O 


O 


O 


=Z (3) 

2700 60 TO 2590 
2710 NEXT E 
2720 RETURN 
¿800 REM dentro 


2808 REM Calcula el angulo del € 
entro al punto de intersección 
2809 REM Si esta entre los ang. 
min. y max. del segmento el punt 
o esta en el arco 

2810 LET BZ=8Z3 LET EZ=E 

2820 IF H$="x" THEN LET BEZ=Ez L 
ET EZ=AZ 

2830 1F BZ=0 THEN  LET FHI=-F1/2 
: IF EZ20 THEN  LET FHI=-FHI 
2840 IF BZ=0 THEN (60 TO 2860 
28390 LET FHI=ATN (EZ/BZ)1 1F EZ“ 
O THEN LET PFHI=FHI-FI 

2839 REM Fija un control para in 
dicar si el punto es valido 

2860 LET QUT=(FHI+=A1) OR (FHIZ= 
AZ) 

2870 RETURN 


Crustacso= 


EJ Lia. AAA 


Figura 6.7 
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Gráficas 


Como último ejemplo de representación de gráficos consideraremos el trazado de 
gráficas de funciones o de puntos discretos manejados frecuentemente en el mundo 
científico. En tales diagramas deberán incluirse ambos ejes coordenados, cuyas es- 
calas pueden cubrir una variedad extraordinaria de rangos y cuyo origen deberá ser 
flotante. El método que usaremos para decidir dónde colocaremos un determinado 
eje es bastante estándar: si en el rango cubierto por el eje se encuentra el cero 
de la gráfica, entonces el eje pasará por ese punto; si por el contrario el cero que- 
dara fuera de la gráfica, colocaríamos el eje sobre el borde del área del gráfico que 
está más cercano al cero. Sobre cada uno de los ejes se colocan cinco pequeños guiones 
perpendiculares al eje (TICK), y el valor correspondiente a cada TICK se colocará 
próximo al mismo. Con el fin de obtener gráficas científicas precisas, deberíamos 
incluir el mayor número posible de caracteres posibles. Tal como están las cosas, 
sólo podemos colocar 32 caracteres en dirección horizontal y 22 en vertical. Aquí 
es donde actúa “variación de ancho”. Anteriormente, habíamos empleado el GENE- 
RADOR DE CARACTERES para crear dos juegos de caracteres reducidos con la 
mitad de anchura de los normales: un juego que los tiene colocados en la mitad 
izquierda del bloque del carácter, y el otro juego a la derecha. Cuando queremos 
imprimir una tira de caracteres en la forma reducida, la subrutina “variación de 
ancho” imprime los caracteres impares de la tira con el juego desplazado hacia la 
izquierda, y coloca dos caracteres en cada bloque, resultando una extensión horizontal 
máxima de 64 caracteres. Los números empleados para indicar valores sobre los 
ejes, también precisan ser convertidos en tiras de caracteres de una forma consis- 
tente en cuanto a su longitud y/o precisión decimal. Este proceso se realiza mediante 
la subrutina “número”, que se da a continuación en el listado 6.12. Recuérdese que 
la subrutina “variación de ancho” se empleó anteriormente para la realización de 
las etiquetas de la figura 6.6. 


Listado 6.12 


— * : == nn A+ 
¡DA ZO000 REM grafica 2 
| 7009 REM La rutina de simbolo es 

usada para marcar puntos en los ' 
O graficos O 
3010 LET symbol=35300 

3019 REM Calcula las escalas y d 


| 
e ibuja los ejes O 
E ZO20 INFUT "X VA DESDE "3XE53" HA 
: STA "5XT3 1F XT<=XE THEN 60 TO a 
O 020 U 
ZOZO INFUT "Y VA DESDE "¡YE3" HA | 
STA "3YT3 1F YT<=YB THEN  G0 TO | 
O ZOZO O 
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0) 


O 


5040 LET XSCALE=192/(XT-"XE)1 LET 
YSGCALE=128/ (YT-YE) 

2050 LET XO=INT  (-XB*XXSCALE+ZZ. O 
Ji LET YO=INT  (-YE*YSCALE+Z4, 50) 

2059 REM Si el cero no esta en e 

l rango mueve el eje al borde ap 

ropiado 

3060 IF YTz20 THEN  LET YO=157% 

2070 IF YB>0 THEN  LET YO=23 

2080 IF XT20 THEN. LET XO=224 

5090 IF XE>O THEN LET XO=:231 

2100 PLOT X0,23% DRAW 0,128: FLO 

T 31,YO: DRAW 192,0 

2101 REM Usa la rutina de variac 

ion de ancho para imprimir eticu 

etas en los ejes con 4 cifras 

3110 LET XDIF=(XT-XBE)/4: LET YDI 

F=(YT-YE) /4 

3120 LET X=XB: LET Y=YBEs FOR J-=1 
TOUS 

3130 LET FX=INT  ((X-XE)*XSCALE+3 

2200) LET PY=YD 

3140 FLOT FX,FY-2: DRAW 0,4 

2150 LET COL=INT (PX/8)-13 LET R 

OW=INT ((173-FY)/8)+1 

2160 LET A=X: GO SUE numbers 60 

SUE thin 

2170 LET FY=INT ((Y-YE)*YSCALE+2 

4.5): LET FX=X0 

2180 PLOT FX-2,FY:+ DRAW 4,0 

2190 LET COL=INT (PX/B)+123/,LET R 

OW=INT ((173-FY)/8) 

3200 LET A=Yi¿ 60 SUB numbers: 60 
SUB thin 

2210 LET X=X+XDIF: LET Y=Y+YDIF: 
NEXT J 

ad INFUT "GRAFICO CONTINUO O D 
ISCRETO "5D$: IF D$<>"c" AND D$< 
2"d" THEN GO TO 3220 

amO IF Dé$="d" THEN GO TO 3320 
aaa? REM Lee la funcion a dibuja 
y 

2240 INFUT "FG0O: y="3 LINE Fs 
250 LET X=XE2 LET Y=VAL. (F$): L 
ET OY=INT  ((Y-YE)*AYSCALE+24,5) 
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2260 PLOT 32, 0Y 

2270 FOR 1=33 TO 224 

3280 LET X=(1-32) /XSCALE+XE 

2290 LET Y=VAL (F$): LET 1Y=INT 
((Y-YB) A YSCALE+24, 5) 

3300 DRAWN 1, I1Y-0OY: LET OY=IY2 NE 


2310 RETURN 

24319 REM Lee un grupo de puntos 
para el grafico discreto 

amO INFUT "No. DE FUNTOS "3NF: 
DIM X(NF)1 DIM Y (NE) 

2330 FOR l=1 TO NFi INFUT ("XxX (U+ 
Sie LAO OACI. VCUESTRA E 
EM ENDE NEXT 1 

1339 REM Ordena los puntos en or 
den ascendente segun las X 

2040 FOR l=1 TO NEF-ii FOR J=I-+1 
TO NE 

AadO TE X(IJI)ZX CT) THEN. LET T=X( 
DD: LET XC(I)=X(J)1 LET X(J)=Ts* L 
ER T=sYCida LEC YCI=4C)E LETO Y 
Ji=T 

2360 NEXT Ji NEXT 1 

2370 LET X=INT  ((X(1)-XE)*XSCAL.E 
+32. 0)1 LET Y=INT ((Y(1)-YB)*YSU 
ALE+24, 0) 

2380 FLOT X, Yi LET OX=Xw% LET OY= 
Yi GO SUB symbols FLOT 0OX, OY 
24389 REM Une los puntos y situa 
un simbolo en cada punto 

70 FOR l=2 TO NF 

2400 LET X=INT  ((XCT)-XE)*XSCALE 
+2) LET Y=INT ((YC1)-YRE)*YSC 
ALE+24,.50) 

2410 DRAW X-0X,Y-0Y: LET OX=X2: L 
ET OY=Y4 60 SUB symbol: FLOT 0X, 
OY 

3420 NEXT li RETURN 


2300 REM simbolo 

2010 DRAW 0,1: DRAW 1,0: DRAW O, 
“zi DRAW 2,02 DRAÁW 0,2 

2920 RETURN 


4700 REM numero 
5) 4710 LET As$=S5TR$ A: IF LEN Aé$<=4 
THEN RETURN 
A 4720 LET As$:=:A$( TO 4) 
| 6) 4730 RETURN 


Ejercicio 6.7 


Escriba una subrutina que realice la misma función que “número” y que le per- 
mita especificar el formato de la tira de caracteres que contenga un molde del formato 
numérico: por ejemplo la tira “++ +e.+e + ++” especificaría un número con dos dígitos 
en su parte entera y tres decimales. 


Ejercicio 6.8 


Construya los juegos de caracteres necesarios para las etiquetas numéricas (están 
incluidos en las cintas bajo los nombres “car3” y “car4”), empleados en el etiquetado 
de diagramas. La figura 6.8, que ha sido dibujada con el listado 5.2, le ayudará en 
su diseño. 


Figura 6.8 


La elección que se presenta ahora es entre representar los puntos de una fun- 
ción continua, o dibujar un conjunto discreto de puntos que se unirán por líneas 
rectas tomando una forma de dientes de sierra. En la parte de la subrutina que 
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dibuja una función, calculamos la altura correspondiente a cada pixel sobre el eje x 
y se unen estos puntos con rectas. En la parte que dibuja un conjunto discreto de 
puntos, las coordenadas x e y de cada uno de los datos se ordenan en orden cre- 
ciente de la coordenada x. Estos puntos se unen entonces con rectas. Damos un ejem- 
plo de cada uno de los diagramas. 


Figura 6.9 


CAMBIOS EN EL VUALDR CEL PH CEL 
ASA E LH RIO Ed 24 HORAS 


> 
E 


66.4% 12,40 


TACO 


Figura 6.10 
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La figura 6.9 muestra la curva coseno típica, mientras que la 6.10 representa unos 
datos científicos discretos acerca del nivel del pH de un río. 


Ejercicio 6.9 


Puede observarse que el único dato que se precisa para una gráfica de este tipo 
es un conjunto de coordenadas en orden creciente de X, que luego se unirán con 
tramos rectos. Este conjunto de puntos puede crearse de dos maneras: bien por una 
sucesión de sentencias READ o por cálculo en una subrutina de varias líneas. En 
vez de eVALuar la función-tira de caracteres F$ podríamos escribir una subrutina 
que se empleará cada vez que necesitemos calcular un punto de la curva. Diseñe una 
subrutina que permita dibujar la gráfica de sen X/X, y evite el cálculo de sen 0/0. 


Programas completos 


Agrupamos los listados 6.6 (“programa principal”, “carga caracteres del cassette”, 
“set” y “opciones”), 6.1 (“rutina del cursor” y “grid”), 6.4 (“grabación” y “carga”) bajo 
el nombre “rutdiag”, y lo usaremos con 6.2 (“papel” y “tinta”), 6.3 (“punto” y “línea”), 
6.5 (“etiquetado”) y 6.7 (“crear caracteres” y “variación de ancho”), se encuentran 
todos en la cinta. Observe los cambios necesarios para la máquina de 16K que 
se mencionan en el apéndice A. 


I. “rutdiag”, 6.2, 6.3, 6.5, 6.7. Datos necesarios: 


“DEFINIR CARACTERES?” (pulse) S para crear caracteres especiales girados 
y bloques para histogramas; en caso contrario, N. 

“CARGAR CARACTERES?” $ si se quiere cargar un juego de caracteres de 
cinta (inclusive los anteriores); N en caso contrario. 

“CARGAR DIBUJO?” S para cargar un dibujo creado y almacenado en cinta. 
En caso contrario, N. 

“DIBUJAR DIAGRAMA?” S para dibujar un histograma, círculo porcentual 
o gráfica. N si el diagrama sólo va a ser editado. 

“ETIQUETAR DIBUJO” $ si se quiere usar “etiquetado”. N en caso contrario. 
“CAMBIAR COLOR PAPEL?” S o N. Si se introduce S, “COLOR?” (por 
ejemplo, 1: mueva el cursor; si es necesario, use “grid”) y teclee el tamaño de 
la superficie en bloques FILASÉ*COLUMNAS (por ejemplo, 2*4). 

“CAMBIAR COLOR TINTA?” Si S entonces “COLOR?” (por ejemplo, $5: 
mueva el cursor; si es necesario, use “grid”) y teclee el tamaño de la superficie 
en bloques FILAS*COLUMNAS (por ejemplo, 3x1). 

“DIBUJAR UN PUNTO?” Si S use el cursor para especificar el punto: 
“COLOR?” (por ejemplo, 6) y SOBREIMPRESION (1 ó 0). 

“TERMINAR DIBUJO?” Si N se repite la secuencia de preguntas. 
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¡00% 


“SALVAR DIBUJO?” Si S, introduzca el nombre del dibujo. Experimente con 
las gráficas de datos. 


“rutdiag” y el listado 6.8 (“histograma/tipo1”). Datos pedidos: por ejemplo, 


“RANGO VERTICAL” 0 “A” 100 

“N.* DE BARRAS” 6 

“DATOS PARA LA BARRA 1” 56 “COLOR” 2 
“DATOS PARA LA BARRA 2” 95 “COLOR” 6 
“DATOS PARA LA BARRA 3” 20 “COLOR” 4 


“DATOS PARA LA BARRA 4” 77 “COLOR” 5 


“DATOS PARA LA BARRA 5” 54 “COLOR” 1 


“DATOS PARA LA BARRA 6” 33 “COLOR” 3 
“rutdiag” y el listado 6.9 (“histograma/tipo2”). Datos necesarios: por ejemplo, 


“RANGO VERTICAL” 0 “A” 50 
“N.” DE BARRAS” 4 
“COLOR PARA BARRA 1” 2 
“MAX PARA BARRA 1” 44 
“MIN PARA BARRA 1” 22 
“COLOR PARA BARRA 2” 6 
“MAX PARA BARRA 2” 36 
“MIN PARA BARRA 2” 5 
“COLOR PARA BARRA 3” 4 
“MAX PARA BARRA 3” 42 
“MIN PARA BARRA 3” 29 
“COLOR PARA BARRA 4” 1 
“MAX PARA BARRA 4” 31 


“MIN PARA BARRA 4” 12 


“rutdiag” y listado 6.10 y 6.11 (“círculo porcentual”, “sombreado”, etc.). Datos 
requeridos: por ejemplo, 


“N.* DE SEGMENTOS” 3 
“COLOR” 0 
“DATO 1” 1 
“DATO 2” 2 


“DATO 3” 3 

Centre el círculo con el cursor, a continuación “RADIO (EN PIXELS)” 75 
Centre la porción con el cursor. “SOMBREADO (x, y, xy, n)” xy: “INC.” 8: 
“DESP.5 

Centre la porción con el cursor. “SOMBREADO” (x, y, xy, n)” y: “INC.” 
“DESP.” 0 


Centre la porción con el cursor. “SOMBREADO (x, y, xy, n)” n 


[o,2) 


“rutdiag” y el listado 6.12 (“gráfico”, etc.). Las demandas del programa son 
autoexplicativas: como las anteriores. 
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Geometría cartesiana 
en tres dimensiones 


Antes de comenzar el estudio de representaciones gráficas de objetos en el espacio 
tridimensional, es conveniente que demos un corto paseo por la geometría de coor- 
denadas cartesianas en tres dimensiones. Al igual que sucedía en el espacio bidimen- 
sional, fijamos arbitrariamente un punto en el espacio, llamado origen de coordenadas 
(para abreviar origen). A continuación imaginamos tres rectas perpendiculares entre 
sí que se cortan en dicho punto; cada una de ellas alcanza hasta el infinito en 
ambas direcciones. Llamaremos a estas tres rectas el eje x, eje y y eje z. Cada eje, 
a su vez, tendrá una parte positiva y otra negativa, consideradas a partir del origen: 
es decir, las distancias medidas desde el origen a lo largo de un eje serán positivas 
en una parte del mismo y negativas en la otra. Para simplificar, podemos imaginar 
que los ejes x e y son equivalentes a los que dibujábamos en el espacio de dos 
dimensiones, ambos sobre la hoja de este libro, por ejemplo. Como antes, colocare- 
mos el eje x “horizontal” y con la parte positiva hacia la derecha del origen, y el 
eje y “vertical”, y con su parte positiva hacia la parte superior del libro. Una vez 
fijadas las posiciones de estos dos ejes, la posición del eje z queda predeterminada: 
debe ser perpendicular a la página (ya que es perpendicular tanto al eje x como 
al eje y) Nos queda ahora escoger la parte positiva del eje z. La parte positiva 
puede entrar en la página (convenio de ejes de mano izquierda) o salir de la misma 
(convenio de la mano derecha). En este libro utilizaremos siempre el convenio de mano 
izquierda. Añadiremos que cualquier operación realizada con ejes “zurdos” es equi- 
valente si se escogiese el otro convenio, con tal que uno sea consistente con la 
notación elegida. 

Un punto p en el espacio queda definido por un trío de coordenadas o vector 
(X, Y, Z), donde los valores individuales de las coordenadas representan proyecciones 
perpendiculares del punto a los respectivos ejes x, y, z. Llamamos proyección al 
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punto del eje tal que si unimos dicho punto con el punto p el segmento obtenido 
es perpendicular al eje. 

Vamos a definir dos operaciones para vectores tridimensionales. Supongamos que 
tenemos dos vectores p, = (X1, Y 1,21) Y P2 = (X2, Y2, 22). 


Se llama multiplicación por un escalar kp, =(k x x,¡,k x y¡,k x=z1) al resultado de 
multiplicar las tres coordenadas por un número k. 


Suma de vectores p, + P2 =(X1 + X2,Y1 + Y2,21 + 22)es la operación por la cual se 
suman las coordenadas de dos vectores por separado, es decir, las coordenadas x por 
un lado, las y por otro y las z por otro. El resultado es un nuevo vector. 


Definición de un línea recta 


El siguiente objeto que definiremos en el espacio tridimensional es una línea recta 
que pase por dos puntos, p, = (X1, y1,21) Y P2 = (X2, Y2, 22). Describiremos las coor- 
denadas de un punto cualquiera p = (x, y, z) en la recta por medio de tres ecuaciones: 


(x— x1) x (Ya — Yi) = (Y — Yi) x (x2 — x1) 
Y — y1) x (22 — 21) = (2 — 21) x (Y2 — y1) 


(z — 21) x (x2 — x1) = (x— x1) x (22 — 21) 


Aunque el sistema propuesto tiene tres ecuaciones y tres incógnitas, se puede 
demostrar que están interrelacionadas (lo que se llama ecuaciones linealmente depen- 
dientes) y que, por tanto, no tienen una solución única. Es lógico que sea así, ya que 
intentamos describir un punto cualquiera de la línea, no un punto determinado. Con 
estas ecuaciones podemos calcular dos coordenadas en función de la tercera (véase 
ejemplo 7.1). 

Tal como sucedía en dos dimensiones, una recta se puede representar de varias 
maneras diferentes; de hecho, introduciremos ahora una segunda forma que probable- 
mente es más útil. Un punto cualquiera de la recta se representa como un vector 
que depende de un único número real y, que se calcula como vector suma de dos 
vectores multiplicados por escalares. 


p(u) = (1 — u)p, + up2 donde —o<pu<oo 
es decir, 
pl) =((1 —4)xx1+p4xx2,(l-=p4xy+p4xX y2,(l — 4) x 21 +p Xx 22) 


Esta forma de representación equivale exactamente a la forma paramétrica en dos 
dimensiones que utilizábamos en el capítulo 3 para definir una recta. El símbolo y 
que aparece entre paréntesis detrás de p indica que p depende de ¡; sin embargo, 
una vez conocido este hecho (1) puede ignorarse. Obsérvese que cuando u =0, la 
ecuación da el punto p,, y si 1 = 1, resulta p,. 
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Podemos reorganizar esta expresión de la forma 
PU) = pi + Hp — Pr) 


Al igual que en su homólogo bidimensional, p, se llama vector de base y (p> — P1) 
vector de dirección. También observamos aquí la doble interpretación que se puede 
asignar a un vector. En efecto, un vector puede utilizarse para identificar unívoca- 
mente un punto en el espacio tridimensional, o bien puede establecer una dirección: 
en concreto, cualquier paralela a la recta que una el origen al vector (considerado 
como un punto). Podemos movernos por la recta en uno u otro sentido, de manera 
que definiremos un sentido positivo cuando viajemos desde el origen hacia el punto, 
y un sentido negativo cuando vayamos desde el punto hacia el origen. De esta forma, 
los vectores d = (x, y, 2) y —d =(—x, — y, —z) representan la misma recta en el espacio 
pero definen dos sentidos contrarios. Se define la longitud de un vector d = (x, y, z 
(también llamada su módulo o valor absoluto) como |dl, distancia desde el extremo 
del vector al origen 


Id] = /(x? + y? + 2?) 


Podemos localizar cualquier punto de la recta p + ud colocándonos en el punto p 
y moviéndonos a lo largo de una línea paralela a la dirección d una distancia ld] 
en sentido positivo de d si es positivo, y en sentido negativo en caso contrario. 
Obsérvese que se puede utilizar cualquier punto de la recta como vector de base, 
y que el vector de dirección se puede sustituir por cualquier múltiplo del mismo 
distinto de cero. 

El vector de dirección d = (x, y, z) forma ángulos 0,, 0, y 0, con las direcciones 
positivas de los ejes x, y, z respectivamente; tenemos, por tanto, las relaciones 


x:y:z = cos 0,: cos 0,: cos 0, 


lo que significa que d = (4 x cos0,,/ x cos0,, 4 x cos 0)¿) para algún 2. 
Por las propiedades de la geometría en tres dimensiones sabemos que 


cos? 0, + cos? 0, + cos? O, = 1 


Así pues, si 4 =|dl, y además el vector de dirección tiene módulo unidad (es 
decir, módulo = 2 = 1), las coordenadas de dicho vector serán (cos 0,,, cos 0,, cos 0); 
o lo que es lo mismo, 4 = 1. Cuando las coordenadas de un vector de dirección se 
dan de esta forma, se denominan cosenos directores del conjunto de líneas definido 
por el vector. En general, si el vector de dirección es d = (x, y, z), los cosenos di- 
rectores son á 
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Ejemplo 7.1 


Describa la recta que pasa por los puntos (1,2, 3) y sl 0,2), usando los tres 
métodos vistos hasta ahora. 
Un punto cualquiera (x, y, z) de la recta satisface las ecuaciones 


(x — 1) x (0— 2) = (y - 2) x (-1-—1) es decir, —2x + 2y = 2 (7.1) 
G=DdxO-3=6=32 0-9 —y +2 = (7.2) 
y (z - 3) x (-1-1)=(x-1)x Q- 3) =22+x=-5 (7.3) 


Se observa que la ecuación 7.1 es igual a la suma de las ecuaciones 7.2 y 7.3 
multiplicada por —2. Consideraremos, por consiguiente, las dos últimas ecuaciones 
únicamente, obteniendo 


y=22-4yx=2-5 


así, un punto cualquiera de la recta depende de una única variable, en este caso z, 
y está dado por (2z — 5,2z — 4, z). El resultado se puede comprobar con facilidad 
sustituyendo z = 3, con lo que obtenemos (1,2, 3), y sustituyendo z = 2 obtenemos 
(— 1,0, 2), que eran los dos puntos originales que definían la recta. 

Expresándolo en forma vectorial, un punto cualquiera de la recta (dependiendo de 41) 
será 


2) =(1 411,23) + a(-1,0,2) = (1 = 24, 2= 21, 3= 1) 


Una vez más las coordenadas dependen de una variable únicamente (4), y po- 
demos comprobar la validez de la ecuación propuesta haciendo p(0) = (1,2, 3) y 
p(1) = (- 1,0, 2). 

La tercera forma de representación se basa en un vector de base y en un vector 
de dirección: 


plu) = (1.2, 3) Ez p(—2, Za 1) 
donde (1, 2, 3) actúa de vector de base y (—2, —2, —1) de dirección. (Obsérvese que 
el módulo es /(4 + 4 + 1) = ,/9 = 3.) Observamos también que cualquier punto de 


la línea puede actuar como vector de base, de manera que podemos adoptar otro 
punto p' obteniendo 


py =tL02+ az -—2=1] 
Si expresamos el vector de dirección en forma de cosenos directores (—2/3, —2/3, 
— 1/3) podemos representar la recta en una versión distinta de la misma forma vector 
base/vector de dirección. 


p" (1) = (1,2, 3) + u(-2/3, - 2/3, -1/3) 


200 


Evidentemente, el mismo valor de u dará distintos puntos para representaciones 
diferentes de la recta; por ejemplo, p(3) = (—5, —4,0), p'(3) = (-7, —6, —1) y p"(3) = 
= (—1,.0, 2). Los ángulos formados por esta recta y los ejes son 131,81 grandos = cos” * 
(—2/3), 131,81 grados y 109,47 grados = cos *(—1/3) respectivamente, al eje x, 
eje y, eje z. 


Angulo formado por dos vectores de dirección 


El cálculo de este ángulo requiere que previamente definamos el -, llamado pro- 
ducto escalar. Este operador actúa sobre dos vectores y su resultado es un número 
real. Así, 


PD:9 =(X1,Y1,21)"(X2, 2,22) = X1 XX2+Y1 Xx Y2+21 X 22 


Si p y q son vectores unitarios (es decir, están expresados en forma de cosenos 
directores) y 0 es el ángulo entre las rectas, se cumple cos 0 = p+q (véase la ex- 
presión equivalente en dos dimensiones mostrada en el capítulo 3). Por consiguiente, 
en general el ángulo entre dos vectores de dirección p y q (que suponemos se cortan 
en el origen) será 


e a) 
OS in 
pl |gl 


Evidentemente, p y q serán perpendiculares si y sólo si p-q = 0. 


Definición de un plano 


A continuación definiremos un plano en el espacio tridimensional. Un punto cual- 
quiera del plano x = (x, y, z) viene dado por la ecuación vectorial 


n:x=k 


donde k es un número, y n el vector de dirección del conjunto de líneas que son 
perpendiculares (normales) al plano (véase ejemplo 7.2). Si a es un punto cualquiera 
del plano, se cumplirá n-a = k, por lo que, sustituyendo k en la ecuación anterior, 
obtenemos 


n:x=n:a obien n:(x-—a)=0 
La última ecuación es evidente y recordamos la propiedad ya mencionada del 
producto escalar que hace que dos rectas perpendiculares tengan un producto nulo. 
Para cualquier punto x = (x, y, z) en el plano distinto de a, sabemos que (x — s) 
puede considerarse como la dirección de una recta en el plano. Al ser n normal 
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al plano, y por tanto perpendicular a cualquier línea de dicho plano, el producto 
n-(x — a) = cos (1/2) = 0. 

Expandiendo la ecuación original del plano con una normal n = (n,, n>, n3), obte- 
nemos la forma general de representación por coordenadas de un plano: 


(N1,N2,N3)*(x, y,2) =M1 Xxx+M2xy+nM3xz2=k 


Obsérvese que dos planos cuyas normales sean m y n serán paralelos si y sólo 
si una de las normales es múltiplo de la otra, es decir, n = ¿m para algún 4. 


Punto de intersección de una recta y un plano 
Supongamos la recta definida por b + ud y el plano definido por n-x =k. Al 


ser el punto de intersección común a la recta y al plano, tendremos que encon- 
trar el único valor de y (si existe) para el cual 


n-(b+ ud) = k 


es decir, y = (k — n-b)/(n- d) siempre que n-d % 0. 
Cuando la recta y el plano son paralelos se cumplirá n-d = 0, y no habrá puntos 
de intersección. 


Distancia de un punto a un plano 

La distancia de un punto p, al plano n-x = k es la distancia del punto p, al punto 
p2 situado en el plano que sea más próximo a py. Si trazamos una perpendicular al 
plano por el punto p», dicha perpendicular deberá por consiguiente pasar por p,. La 


ecuación de esta recta puede expresarse p, + ¡un y el valor de u que define p, debe ser 
tal que 


1 = (k — n- py)/(n-m) 


de acuerdo con la ecuación anterior, la distancia del punto p> =p, + jn al punto 
Pi será 


un xIn| =|k — n-p,|/nl 


Como caso particular, si p, es el origen de coordenadas O, la distancia del plano 
al origen será |k|/|m|. Además, si n es un coseno director, la distancia al origen es- 
tará expresada por |kl, valor absoluto del número real k. 
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Ejemplo 7.2 


Encuéntrese el punto de intersección de la recta que une (1,2, 3) y (—1,0, 2) con 
el plano (0, —2, 1)+ x = 5; calcúlese también la distancia del plano al origen. 
b = (1, 2,3) 
n=(0, —2,1) 
d = (-1,0, 2) — (1,2, 3) = (-2, —-2, —1) 
n:b=(0x1+ -2x2+1x3)= —1 
n:d=(0x -2+ -2x -2+1x -—1)=3 


por tanto el valor de del punto de intersección será (5 — (—1))/3 = 2, y el vector 
del punto es 


(1,,2,3)+ 2(=2, =2,=1)'= (23,2 1) 


la distancia del punto al origen será 5/¡m| = 5/4/5 = y/5. 

El programa del listado 7.1 nos permite calcular el punto de intersección (vector 
P) de una recta y un plano. La recta tiene un vector de base B y una dirección D, 
y el plano tiene una normal N y una constante K. obsérvese que trabajamos con 
números decimales, y estamos por tanto sujetos a errores de redondeo; por tanto 
no podemos comprobar si el producto escalar es exactamente cero. Lo único que 
podemos hacer es considerar que es lo suficientemente pequeño como para resultar 
despreciable; se deja al buen criterio del programador la definición de “lo suficiente- 
mente pequeño” (en el Spectrum, la sexta cifra decimal es bastante razonable). 


Listado 7.1 


r ] PRE MAA ñ 


2 100 REM intersección de recta y VEA 
| plano | 
e 110 DIM B(3): DIM D(3): DIM NOS 
dl e DIM FC): DIM A$(8) O 
120 INFUT "FUNTO DE LA RECTA ", 
a | LOBA ABI NB : 
SN 130 FRINT AT 1,0+"FUNTO DE LA K O 
ECTAS,) “IBC, “IBIZA Do) 

O p qu)" ' 
a 140 INFUT "VECTOR DIRECTOR DE L : O 
| A RECTA", "("s5D(1)5","5D(2)33","3 | 
20 eo IO Lo 
: 150 FRINT AT 4,03 "VECTOR DIRECT | 
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y OR DE LA RECTA", "("3D(1)3","3D(2 

O | A rd E DE QoS bi [E | '0) 1 

| 160 INFUT "VECTOR NORMAL AL FLA | 
NO", "OUEN MENCIONE" 

O | > el . ¡ i ; O 

| 170 FRINT AT 7,05 "VECTOR NORMAL. 

O! AL PLANO", "(NC1) 5") UENC2IG O," 


"E 
188 REM Calcula el punto de int 
erseccion (F(10),F(2),F0)) 
189 REM de la recta y el plano 
datos de- entrada arriba 
190 FRINT AT 10,0; "CONSTANTE. DE ( 
EN L FLAND "kE Mo, 
| 


Z00 LET DOT=N(1)D(1)+N(2)%D (2) 
+N (3) RD (03) 


O : 209 REM Froducto escalar=05 no EN 
hay interseccion 

O) 210 IF ABS DOT20, 000001 THEN EF : 
RINT AT 15,05"NO HAY FUNTO DE IN ' Ó 
TERSECCION":2 STOF 

O 220 LET MU=(K-N (01) E (01)-N 02) E ( O 


2) ANCORA (3))/DOT 

230 FOR I=1 TO 3: LET F(1)=BE(1) 
O +MUXD(T): 1F ARS FCI)20,.,000001 T E 
HEN LET FC)=0 
240 NEXT li FRINT AT 135,0; "FUNT | 
O O DE INTERSECCTON "," (05 O) 
¡ 249 REM Salida de datos 
l 250 FOR l=1 TO 3: LET As=5TR$ F 


O (Di FOR J=1 TO 8 Go 
260 IF A$S(IJIZ2" " THEN  FRINT A 
o: BD); 
O 270 NEXT Ji 1F 1223 THEN FRINT O) 
” , 
Pe 280 NEXT li FRINT ")" 
O 290 STOP 


Punto de intersección entre dos rectas 


Supongamos que tenemos dos rectas definidas como b, + ud, y b, + 2d). Para 
que dichas rectas tengan un punto de intersección, se deberá cumplir que no sean 
paralelas y además que estén en el mismo plano. En estas condiciones, su punto de 


204 


intersección se calcula encontrando los valores de u y 4 que satisfacen la ecuación 
vectorial (equivalente a tres ecuaciones de coordenadas separadas) 


b; + nd; = b, + 2d), 


Tenemos, por consiguiente, tres ecuaciones con dos incógnitas; esto significa que 
para que las ecuaciones tengan sentido, deberá existir un par de ecuaciones indepen- 
dientes, y la tercera será una combinación lineal de las otras dos. Dos rectas son 
paralelas cuando el vector de dirección de una de ellas es un múltiplo del otro. Por 
consiguiente escogeremos dos ecuaciones independientes, buscaremos los valores de 
1 y 4 (tenemos ahora dos ecuaciones con dos incógnitas), y las sustituiremos en la 
tercera ecuación para comprobar si son consistentes. En el ejemplo 7.3, más adelante, 
se demuestra este método; el listado 7.2 es una forma de implementarlo en un orde- 
nador. La primera recta tiene su base y dirección almacenadas en los vectores B y D, 
y la segunda en C y E: el punto de intersección calculado se almacena el vector P. 

Obsérvese que si las dos ecuaciones independientes son 


d11 Xx H+ 412 X 4 = Di 


421 XxX H+d22 Xx 2=b, 


se ha de cumplir que el determinante Á = a,; x 423 — 412 X a, de este par de 
ecuaciones ha de ser distinto de cero (ya que las ecuaciones son independientes); 
obtendremos las soluciones 


n= (472 xb, —= 41, X b,)/A y ¿4=(a11 x b3—d31 X b,)/A 


Listado 7.2 
| h O a E 


O 100 REM intersección de dos lin EE) 


| Bas 
PA 110 DIM B(3):3 DIM D(23):¿ DIM COS 
¡DN Je DIME(): DIMFC(: DIM A$(8) E 


120 INFUT "FUNTO DE LA RECTA 1" 
AEB BA a Bd 


| 
| 
| 

ee 130 FRINT AT 1,05"FUNTO DE LAR 03 
ECTA: LU MONEBC A - 

O 3309" 
140 INFUT "VECTOR DIRECTOR DE L me 
| A RECTA 1%," ("5D(1)5","5D(2)3"," | 
| gba yu 

Pe O. 1D(333%) O 
150 FRINT AT 4,053 "VECTOR DIRECT 
OR DE LA RECTA 1%,"("3D(1)5","5D 

O . q E ar dd 9 A SO AO O 
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O 


O) 


O 


O 
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160 INFUT "FUNTO DE LA RECTA 2" 
Es a da a 

170 FRINT AT 7,03 "FUNTO DE LA R 
ECTA- 21 COC EEC Ec 
5 o! "” 

180 INFUT "VECTOR DIRECTOR DE L 
ACRECTA 2%. POE EI," 
LEC 

190 FRINT AT 10,0; "VECTOR DIREC 
TOR DE LA RECTA Ls “OEI. 
A A A O O 

128 REM Calcula el punto de int 
erseccion (F(1),F(2),FC3)) 

199 REM de dos lineas, datos de 

entrada arriba 

200 FOR l=1 TO 

210 LET J=l+1i 1F J=4 THEN LET 


J=1 

220 LET DELTA=E(1)*D(J)-E(J)%*D ( 
1%, 

230 IF ABS DELTA:0, 000001 THEN 


GO TO 260 

240 NEXT 1 

249 REM No se pueden encontrar 
2 ecuaciones independientes las 
rectas no se cortan 

200 FRINT AT 13,05 "LAS RECTAS N 
O SE CORTAN":¿ STOF 

2599 REM Calcula los valores de 
MU y LANDA del punto de intersec 
cion 

260 LET MU=(E(C1)(0(J)-B(J)) El 
JIACOCTI)ECI)))/DELTA 

270 LET LAMEDA=(D(1)*((0(J)-E(J) 
DO) A COCIDA BCID 30) /DELTA 

277 REM No hay solucion si MU y 
LANDA no satisfacen la tercera 
ecuacion 

280 LET Exdr+li TF K=4 THEN LET 


pi] 
220 1 ABS (BC) +MURD (05) CE (E) —L 
AMEDAXE (E) 30, 000001 THEN  G0 TO 
oO 


299 REM Calcula (F(1),F(2),F(3) 
) usando el valor de MU 


200 FOR l=1 TO Za LET F(1)=RC(T) E 

Or! MUDO): IF ARS FC)20, 000001 T | 

HEN LET FCD=0 | 

| 210 NEXT Ti PFRINT AT 15,05 "FUNT . 

a O DE INTERSECCION ","(%s E 
219 REM Salida de datos 

220 FOR l=1* TO Za LET Aé$=STR$ F 


O (Ds FOR J=1 TO 8 O 
| 330 IF AS(IDIDCG3" "O THEN PRINTA | 
| | $; 
e 340 NEXT Ji IF 1253 THEN PRINT O) 
350 NEXT li PRINTO)" A 
O 360 STOF .e 
L a > a AAA | 


Ejemplo 7.3 
Encuéntrese el punto de intersección (si existe) de 


a) (111,1) + u(2,1,3) con (0,0,1) + 4(—1, 1, 1), 
b) (2,3,4) + u(1,1,1) con (-2, —3, —4) + A(1, 2, 3). 


De a) obtenemos las tres ecuaciones: 


1+24=0-4 (7.4) 

l+ n=0+4 (7.5) 
l+3u=1+4 (7.6) 

A partir de 7.4 y 7.5 obtenemos y = —2/3 y 2 = 1/3 que sustituimos en la 
ecuación 7.6 La parte izquierda de esta ecuación da 1 + 3 x (-2/3) = —1 mientras 


que la parte derecha resulta 1 + 1 x (1/3) = 4/3. Al ser diferentes los resultados, las 
dos rectas, obviamente, no se cortan. A partir de b) tenemos las ecuaciones 


2+p=-2+ A (0.7) 
3+p=-3+2) (7.8) 
4+u=-4+32 (7.9) 
y de 7.7 y 7.8 obtenemos un = —2 y 4 = 2; sustituyendo estos valores en la ecua- 


ción 7.9 comprobamos que la parte izquierda de la ecuación es igual a la parte de- 
recha = 2). Por consiguiente el punto de intersección es 


(2,3, 4) + —2(1, 1, 1) = (-2, —3, —4) + 2(1, 2, 3) = (0, 1, 2) 
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Plano definido por tres puntos no colineales 


Para resolver este problema necesitamos introducir un nuevo operador vectorial, 
X , producto vectorial, que actúa sobre dos vectores p y q dando como resultado 
otro vector: 


PX 4=(P1,P2,P3) X (91, 92, 93) 
= (P2 Xx 43 — P3 X 2,P3 X 41 — P1 X Q3,P1 X 42 — P2 X 91) 


Si p y q son dos vectores de dirección no paralelos, el producto vectorial 
Pp X q será el vector de dirección perpendicular a ambos, p y q. Es importante des- 
tacar que esta operación no es conmutativa. Es decir, en general para unos valores 
dados de py q,p xq %4q X p. Estos dos productos vectoriales representan vectores 
de la misma dirección sobre la misma línea pero en sentidos opuestos. Por ejemplo, 
(1,0,0) X (0, 1, 0) = (0, 0, 1) pero (0, 1,0) X (1,0,0) = (0,0, —1);(0,0, 1) y (0,0, —1) son 
paralelos al eje z (y por consiguiente perpendiculares a las direcciones (1,0, 0) 
y (0, 1,0)), pero tienen sentidos opuestos. El listado 7.3 es un programa principal 
que llama a las subrutinas “producto vectorial” (“vecprod”) y “producto escalar” 
(“dotprod”); la primera calcula el producto vectorial entre dos vectores L y M 
y da como resultado el vector N; la segunda calcula el producto escalar de los vectores 
L y M); estas dos subrutinas se dan en el listado 7.4. 


Listado 7.3 

T Es _. q S => 14 5 | 

O 100 REM producto escalar y vect Es 
orial 
| 110 LET vecprod=300%: LET dotpro | 

KZ 1 d=400 O 
? 120 DIM L(2): DIM M(3)33 DIM NC(3 
| ) | 

O. 130 INPUT "VECTOR L.“,"(“L(1)" ES 
Pd A Y E e o 
140 FRINT AT 1,05 "VECTOR L","C(" 

Ó O O A o ES O 
1350 INFUT "VECTOR M","("iM(1)5" : 

AI 

0d 160 FRINT AT 4,05 "VECTOR mM", "(0 : O 
BN MMC UM Mimo)" 

2. 170 GO SUE vecprod O 
180 FRINT AT 8,0; "FRODUCTO VECT 
: ORIAL“, "ONO R M MENCR MUNI 

(5) : y Hai Jl : E) 
190 GO SUB dotprod 
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200 FRINT AT 11,03 "FRODUCTO ESC 


e ALAR", DOT 
E 210 STOF 
Listado 7.4 
| 3500 REM producto vectorial 
ZO1 REM Datos de entrada L(2)3,M 
( (3) 
302 REM Datos de salida N(3) 
209 REM N es el producto vector 
ú ial de L y M 
Z10 LET Nl=2: LET NNI=23 
pS 320 FOR l=1 TO 3 
O; 330 LET NC(I)=L(NI)RMONNTA —L ONNIT 
] )MCNT) 
O 340 LET NI=NNI34¿ LET NNI=NI+1%+ 1 
F NNI=4 THEN  LET NNI=1 
3590 NEXT 1 
5 360 RETURN 
: 400 REM producto escalar 
E 401 REM Datos de entrada L(3),M 
(3) 
| 402 REM Datos de salida DOT 
$ de 409 REM DOT es el producto esca 
lar de L y M 
410 LET DOT=0 
3 420 FOR I=1 TO Zi LET DOT=DOT+L 
(ID*M(T): NEXT 1 


| 430 RETURN 


Supongamos que tenemos tres puntos p;, p>,p3, no colineales (es decir, que no 
forman una línea recta). En esas condiciones, los dos vectores p> — Pi Y P3 — P1 Te- 
presentan las direcciones de dos rectas que coinciden en el punto p,, estando ambos 
situados en el plano que contiene a los tres puntos. Sabemos que la normal a dicho 
plano es perpendicular a cada línea del plano, por lo que lo será a las dos líneas 
mencionadas. Además, al ser los puntos no colineales, se cumplirá que p> — p, * 
+ p3 — pi, y la normal al plano es (p2 — pi) X (p3 — P1); como pj está situada en 


el plano la ecuación es 


(pz — pi) X(p — Pr): 


(x — pi) =0 
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Ejemplo 7.4 
Calcular la ecuación de coordenadas del plano que contiene a los puntos (0, 1, 1), 
(1, 2,3) y (-2,3, —1). 
Se calcula por medio de un punto cualquiera x = (x, y, z) donde 
(0, 2,30, 1.1% (22,3 110.1, 1), 1,3) = (o 1,1)=0 
es decir, 
((1,1,2) x (-2,2, -2)-(x, y - 1,2-1)=0 
o bien 
(—6, -2,4)"(x,y — 1,2 -1)=0 
que expresada en forma de coordenadas es —6x —2y + 4z -2=0 0 en su forma 
equivalente 3x + y — 2z = —1. 
Punto de intersección de tres planos 
Suponemos que los tres planos están definidos por las ecuaciones 7.10 a 7.12 


mostradas a continuación. El punto de intersección de estos tres planos, x = (x, y, 2), 
debe pertener a los tres planos y satisfacer el sistema 


nx =k; ' (7.10) 
e =l (7.11) 
n3*Xx = k3 (7.12) 


donden; = (N;,1,,112,13),M2 = (N>21,N22,N23) y M3 = (N31, 32,33). Podemos reescribir 
estas tres ecuaciones en forma de una ecuación matricial 


Mai Ma M3 x k; 
mi M2 mi3i|X|y|=]|k 
M3a1 M32 M33 z k3 
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De este modo, cualquier cálculo de la intersección de tres planos implica necesaria- 
mente calcular la inversa de una matriz 3 X 3. El listado 7.5 es el método del adjunto 
para el cálculo de M, la inversa de la matriz N. 


Listado 7.5 
j 500 REM inversa de matriz ExZ 
301 REM Datos de entrada NC, 3) 
5302 REM Datos de salida SIMGULA 
Es. Md 
510 LET SINGULAR=1 
$ 520 LET DET=0%* LET Nl=2%2 LET NN 


I=Z3 
9350 FOR 1l=1 TO 4 
340 LET DET=DET+N (1, 1) Xx(N (2, NI) 
ANC NINO A Cs INTA RN CA NIDO) 
= 3390 LET NI=NNT2 LET ONNI=NI+1%2 1 
| Y FO ONNT=4 THEN LET NNI=1 
360 NEXT I 
3069 REM El determinante de una 


O matriz singular es cero, no hay 
| inversa 
o 3570 1F ABS DET20, 000001 THEN —R 
ETURN ) 
3579 REM Calcula M, inversa de N 
O y por el metodo de los adjuntos 


380 LET Nl=24 LET ONNI=3 
3990 FOR I=1 TO 2 
2 8600 LET Nd=21 LET NNJ=3 O 
, 610 FOR J=1 TO 2 
] 620 LET MG, 1) NONI, NT) AN ONNT, 
E NN) NONI, NN REN ONINIT, NT) /DET 
630 LET ONJI=NNJis LETONNJ=NJ +12 1 
Fo ONNJ=4 THEN LET ONNJ=1 
| 640 NEXT J O 
: 650 LET NI=NNT3 LET ONNI=NI-+1: 1 
O 1 FO ONNI=4 THEN LET NNT==1 
| 66% NEXT 1 
670 LET SINGULAR=0 
| 680 RETURN 
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En esta subrutina, de nuevo, se representan los vectores como matrices unidimen- 
sionales (llamados asimismo vectores en terminología matricial); así, B(3) contiene 
la solución de las ecuaciones, x, mientras que K(3) contiene las constantes del plano. 
Hemos expresado las normales n,,n> y nz en la forma de una matriz 3 X 3, N, 
calculando los valores en B a partir de aquélla. Obviamente, si dos de los planos 
son paralelos entre sí o bien los tres coinciden en una recta, no habrá solución 
única (es decir, no habrá punto de intersección): en estos casos la variable DET, de- 
terminante de la matriz N, es cero y la variable SINGULAR = 1, indicando que 
estamos en el caso de una matriz singular (véase el listado 7.6). 


Listado 7.6 
100 REM punto de intersección d | O 
e tres planos | 
110 DIM N(3,3)3 DIM M(3,3)2 DIM | O 


K(3)2 DIM BE(23) ) 
120 LET inv=500 ' 
Y 129 REM Datos de entrada de tre O 
s planos ] 
130 FRINT AT 2,105 "COEF, : 
O CONST." O 
140 FOR 1l=1 TO Z 
A 130 FRINT AT 24+2xT1,05 "FLANO("5 1 : 
| (7 q) ( > ; ya O 
| ' 160 FOR J=1 TO 2 
| e 170 LET I$="TECLEA N("+STR$ ]-+ 
al "” s "” +STR J+" ) "” 6 
180 INFUT (1$)3N(1,J): FRINT AT i 
242, 7+4XJ53N (1,0) "O 
190 NEXT J : 


200 LET I$="TECLEA K("+STR$ I+ 
É 0 ny 04 O 
210 INFUT (I$)35K(D)a PRINTOAT O 
ELIT, 2B5E CI) 
O 220 NEXT 1 
227 REM Si la matriz de los vec 
tores normales es singular no ha 
o) y interseccion 
230 60 SUE inv 
O 240 PRINT AT 12,3; "FUNTO DE INT 
S ERSECCION" 
230 IF SINGULAR THEN  FRINT AT 
an 11,33"NO EXISTE":* STOP 
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2% 2099 REM El punto de interseccio O 
nes (B(1),B(2),8(03)) 

260 FOR I=1 TO Z 

O) 1 270 LET E(1)=0 E E 

280 FOR J=1 TO Z | 

290 LET BCI)=BCI)+MCT, IAE) 

1 TOO NEXT J o 
310 IF ABS E(1)%0, 000001 THEN 
LET B(1)=0 

EN 320 FRINT AT 12421, 74 "BE(U314") EA 
| = "sB(1) 7 

230 NEXT 1 
Gea 340 STOP EN 


Ejemplo 7.5 


Encuéntrese el punto de intersección de los tres planos (0, 1,1)+x = 2,(1,2,3)-x = 
=4y (1, 1,4): = 00, 
En forma matricial tendremos 


O” 1 XxX 2 

1 23 PX Iy0=1.3 

IE! z 0 

La inversa de [0 1 1 es —1 0 1 
17212 2 —1 1 
das e] —-1 1 —1 
y por tanto 

pe —-1 0 1 2 - 

y |= 2 —1 1114 1= 

z —-1 1 —1 0 


La solución se puede comprobar con facilidad: (0, 1, 1)-(—2,0, 2) = 2, (1, 2, 3)- 
:(—2,0,2) =4 y (1,1,1)-(-2,0,2) = 0, lo que significa que el punto (—2,0,2) es 
común a los tres planos y por tanto es su punto de intersección. 
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Recta de intersección entre dos planos 


Sean los planos 


p:x=(Di,P2,p3)"x=Kki y 
qx = (q1,42,93)*x = kz 


Suponemos que los planos no son paralelos y por tanto p % 2¿q para cualquier 2. 
La línea de intersección entre estos dos planos pertenece obviamente a ambos, y 
por tanto debe ser perpendicular a las normales de ambos planos (p y q). Por con- 
siguiente, la dirección de esta recta será d = p X q, y la recta se puede expresar de la 
forma b + ud donde b es cualquier punto de ella. Para resolver completamente el 
problema, necesitamos averiguar uno de dichos b. Si encontramos un punto que es 
intersección de estos dos planos, junto con un tercero que no es paralelo a ninguno 
de ellos ni los corta en la recta común, tenemos resuelta la cuestión. Si escogemos 
un plano con una normal p X q cumpliremos estas condiciones (recordando además 
que este producto vectorial está ya calculado). Necesitamos asignar un valor a k3, 
pero como este valor es arbitrario, escogeremos k3 = 0 para hacer que este tercer 
plano pase por el origen. De esta forma, b viene dado por el vector columna 


Pi P2 P3 E ki 
hi q1 q2 43 Xx |k> 
P2Xx43=P3X4Q2 P3XQ1 —P1XQ3 PiXQ2—P2XQ1 0 


Ejemplo 7.6 
Encontrar la recta de intersección entre los planos (0, 1, 1)-x = 2 y (1,2,3)-x 


) = 
Como. p =:(0, 1,1) y q =(1,2,3), p.X-q =(:x 3 =1'x2,1.x 1—0 3,0% 2 = 
—- 1x1)=(1, 1, —1). Necesitamos la inversa de 


Qué 1 =,) 


159) 


=5 2 1 2 Ele —2 
4 —1 1|xX|2|=- - 2 
3 3 

—1 lol 0 0 0 


y la recta será (—2, 2,0) + u(1, 1, —1). 
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Se puede comprobar fácilmente este resultado, ya que cualquier punto de la recta 
debe pertenecer a los dos planos 
(0, 1,1)-((-2,2,0) + u(1, 1, —1)) = (0, 1, 1)-(-2,2,0) + 0, 1, 1))- 
(1,1, 1) = 2 para todo u y 
(1, 2, 2)- ((—2, 2, 0) + u(1, 1, —1)) = (0, 1, 1)-(—2, 2, 0) + u(1, 2, 3) 
(1,1, -1)=2 para todo 
En el listado 7.7 se presenta el programa destinado a resolver este problema; nótese 
que es muy semejante al programa anterior. Obsérvese también que no se usan ex- 
plicitamente p y q en su forma matricial, sino que se almacenan estos valores en las 
dos primeras filas de la matriz N. La matriz B contiene el vector de base de la 


recta de intersección, pero b no está colocado en ninguna matriz ya que sus valores 
aparecen directamente en la tercera fila de N. 


Listado 7.7 


A E A A AS E 
1 E | 100 REM recta de intersección d PES 
e odos planos 
OA 110: DEM Nit 3)08 DIM MES 305 DIM ES, 
K()s DIM ECH): DIM A$ (2) 
| 120 LET inv=500: LET As$="FQ" 
Oy 
| 


dos planos 
| 130 FRINT AT 2,10; "COEF. 


| 
| 
129 REM Entrada de datos de los ' (>) 
] 
| 
o CONST." ES 


| 140 FOR l=1 TO 2 ¡ 
150 FRINT AT 2+2x*1,05 "FLANO("; : 
O UY) ( s » yA O 
' 160 FOR Jl TO 7 
170 LET I$="TECLEA  "+*As(I3+"(" 
O STR JAM) 0 O 
180 INFUT (1$)¿N(1,3)3 PRINT AT 
o PARA TAR ENCI Dd) M0) 
190 NEXT J 
200 LET I$="TECLEA K("+STR$ I-+ 
(5) | 1") ] | O 
210 INPUT (I$)5kK(1)2 FRINT AT 2 
EDI, BF CT) 
O) 220 NEXT 1 $ 


229 REM Genera el tercer plano | 
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: 230 LET ON(3, 1)=N (1, 2)*N (2, 3)—N( 
: 1,3)*N(2,2) 


7 240 LET NC, 2)=N (1, 7)NC2, 1)-N( LO | 
] 1,1) XN(2,7) : | 
250 LET ON(%,3)=N (1, 1) AN (2, 2)-N( | 

O] 1, 2)*N (2,1) . qee 
260 LET K(3)=0 | 
269 REM Si la matriz de vectore 

O s normales es singular no hay in E: 
| terseccion 

o! 270 GO SUB inv 

280 FRINT AT 10,353"RECTA DE INT e. 
ERSECCION" 

O 290 IF SINGULAR THEN  FRINT AT : 

| 9,33 "NO EXISTE": STOF Q 
FOO FRINT AT 12,2 "VECTOR BASE 
O DIRECCION" "o 
| 208 REM Recta de interseccion: 
: 709 REM punto (B(1),B(2),B(3)) 
O) y direccion (N(3,1),N(3,2),N(3,3 O 
)) 
310 FOR Il=1 TO Z 
O 320 LET E(1)=0 ¡O 
330 FOR J=1 TO Z | 
740 LET E(I)=B(I)+MC(1, J)*k (3) | 

O | 350 NEXT J ER 
760 IF ABS B(1)<0,000001 THEN 

O LET B(1)=0 En 
| 370 FRINT AT 12 + 2x1,05"BO'5T4 LY 
| "(="BCL) 

780 FPRINT AT 12+2*1,203"D("3 13" 

9 )= "5N(3,1) | Q 
i 790 NEXT 1 

o 400 STOP 


Representación de la superficie en forma de función 


En el capítulo 3, en nuestro estudio del espacio bidimensional, observamos que 
las curvas se pueden representar en forma de funciones. Podemos extender esta idea 
a tres dimensiones cuando estudiamos superficies. La forma más simple de superficies 
es un plano infinito con normal n = (n,, n,, n3), la cual ya hemos visto expresada como 
ecuación de coordenadas 


n"x—k=n;¡xx+n2xy+n3xz-k=0 
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Esta expresión se puede reescribir en forma de función para un punto cualquiera 
x = (x, y, z) de la curva 


Ax) =$(3,y,2) =Mxx+Nxy+n3xz-—k=n:-x-—k 


Es ésta una expresión sencilla en función de las variables x, y,z de x que nos 
permite dividir los puntos del espacio en tres conjuntos, aquellos cuya f(x) = 0 (que 
llamaremos el conjunto cero), aquellos con f(x) menor que cero (el conjunto negativo) 
y aquellos cuya f(x) > O (el conjunto positivo). Se dice que un punto x pertenece 
a la superficie si y sólo si pertenece al conjunto cero. Si la superficie divide el espacio 
en dos mitades, dichas mitades pueden identificarse con los conjuntos positivo y ne- 
gativo (cada mitad se dice que está conectada; es decir, dos puntos cualesquiera per- 
tenecientes a la misma mitad pueden unirse por medio de una curva que no atraviesa 
la superficie). Hay que tener cierta precaución de nuevo en este sistema: existen 
muchas curvas que dividen el espacio en más de dos áreas conectadas, resultando 
entonces imposible establecer una relación de funciones en los conjuntos conectados; 
por ejemplo, f(x, y, z) = cos (y) — sen (x? + 2?). Sin embargo, muchas curvas útiles “de 
buen comportamiento” cumplen esta propiedad, por ejemplo la esfera de radio r 


S() = 5? —1x1? 


es decir, 


f(x, y, 2) = 51? — x? — y? — 2? 

Cuando f(x) = 0, x pertenece a la superficie de la esfera, si f(x) < 0, x está si- 
tuado en la parte exterior de la esfera y cuando f(x) > 0, x se localiza dentro de 
la esfera. 

La representación de la superficie en forma de función es un concepto muy útil. 
Se puede utilizar para definir los sistemas de ecuaciones necesarios para calcular 
las intersecciones de varios objetos. Su uso principal, sin embargo, es determinar 
si dos puntos cualesquiera, p y q, pertenecen a la misma mitad del espacio, dada 
una superficie que ha dividido éste en dos partes. Para ello, simplemente tenemos 
que comparar los signos de f(p) y f(q). Si estos signos son opuestos, cualquier línea 
que una p y q cortará la superficie. A continuación presentamos un ejemplo. 


¿Está un punto en la misma parte del plano que el origen? 


Supongamos que el plano está definido (como se hizo anteriormente) por tres 
puntos no colineales p,, p», p3. La ecuación del plano, por tanto, es 


((p2 — Pi) X (p3 — Pr) (x — pi)=0 
Reescribiendo esta expresión en forma de función 
J(x) = (pz — pi) X (P3 — Pr)" (x — p,) 


217 


Sea un punto cualquiera e. Para comprobar si e y el origen están en el mismo 
semiespacio, necesitamos simplemente comparar f(e) con f(O), donde O es el origen. 
Estamos suponiendo que ni O ni e están situados en el plano. 

Veremos que esta idea es de gran utilidad en el estudio de algoritmos de líneas 
ocultas. 


Ejemplo 7.7 


Calcular si el origen y el punto (1, 1, 3) están en el mismo semiespacio del plano 
definido por los puntos (0, 1, 1), (1, 2, 3) y (—2, 3, —1). 
Según vimos en el ejemplo 7.4, la representación del plano en forma de función es 


Hx) = ((—6, —2, 4) -(x — (0, 1, 1)) 
Por tanto 


f(0, 0,0) = —(—6, —2, 4)- (0, 1,1) = —2 


F(1,1,3) = —(—6, —2, 4)- ((1, 1, 3) — (0, 1, 1) = 2 


Así pues, el punto (1, 1,3) está situado en la parte opuesta del plano con res- 
pecto al origen, y si trazamos una recta que una estos dos puntos, cortará el plano 
en el punto (1 — 1) (0,0,0) + u(1, 1, 3) donde 0 < u < 1. 


Orden horario o antihorario de los vértices de un polígono 
convexo orientado en el espacio bidimensional 


Suponemos en principio que el poligono es un triángulo definido por los tres 
vértices p, = (X1, Y1), P2 = (X2, Y2) y P3 = (X3, Y3). Aun cuando estos puntos están en 
el espacio bidimensional, nosotros los supondremos en el plano x/y asignando a 
todos ellos un valor cero en coordenada z. Definiremos como norma el sentido de 
los lados del polígono como (pz — Pi), (p3 — P2) y (pi — P3). Al estar todas estas 
rectas en el plano x/y junto con el origen, sabemos que para todo ¡= 1,26 3 y para 
algunos números reales r; dependiendo de ¡ se cumple que 


(Pi+1 — Pi) X (Di+2 — Pi+1) = (0, O, r;) 


Esto es debido a que el vector producto es perpendicular al plano x/y y por 
tanto su única coordenada no nula es la coordenada z. La suma de los subíndices 
se realiza en módulo 3. Si los vértices se toman sistemáticamente, se observará que 
todos los signos de estos valores r; son siempre idénticos; además, lo que es más im- 
portante, si los p; están dados en sentido horario, todos los r; serán negativos, 
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mientras que si los p; son antihorarios, los r, serán positivos. Si tenemos un polígono 
convexo orientado, para saber si está dado en sentido horario o antihorario necesita- 
remos considerar únicamente sus tres primeros vértices. Observaremos más adelante 
que esta técnica es de una importancia trascendental cuando se trabaja con algoritmos 
de líneas y superficies ocultas. El listado 7.8 es un ejemplo que nos permite decidir 
si tres vértices ordenados en un espacio bidimensional forman un triángulo en sentido 
antihorario. 


Listado 7.8 


100 REM orientacion de un trian O 
guio en 2-D j 

LIO DIM ACE DIM YE 

120 LET 38 = "INTRODUZCA COORDE O 
NADAS DEL TRIANGULO" 

SO FOR DES 107075 


140 LET 1$ =<"VERTICE(€" +-STR$ I | O 
A 
mm 1390. ENFÚUT. (1% + 18) Chis Ma 0 E 
(63) VIT cg O 


160 FRINT AT 2 + 2 *1,051$3X (1) E 
E APA ) 


Ó 170 NEXT 1 O 
| | 180 FRINT AT 12,05"EL. TRIANGULO 
¡Ma EN ES" A 
E ; U 
188 REM (DX1, DYDEs un vector 
| de direccion en 2¿-D que une el p 
1 unto 1 al punto Z. ro 


189 REM (DX2, DYGDDEs un vector 
| de direccion en 2-D que une el p 

O unto 2 al punto Z. Mz 
170 LETIDAL <= AC) E Xd LET 

2%! DY1 == Y (E) += Y (01) 

3 200 LET DX2= X(3) - x*(2)2 LET D A 

Y2 = Y(3) - Y(2) 

209 REM utiliza el producto vea 


O torial en 2-D para comprobar la A | 
orientacion del triangulo 
O 210 1F DX1*DY.2 =— DX2*DY1 + 0 T 


HEN PRINT O "ANTI="3 
220 PRINT "HORARIO": STOP 


A 
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Ejemplo 7.8 


Comprobar si el polígono dado en el ejemplo 3.4 es antihorario. Los vértices 
(considerados en tres dimensiones) son (1, 0, 0), (5, 2, 0), (4, 4, 0) y (—2, 1,0). Las direc- 
ciones de los lados son (4, 2, 0), (— 1, 2,0), (—6, —3,0) y (3, —1,0). 


(4,2,0) X (-1,2,0) =(0,0,10) 
(LLO =30) =(0:0.45) 
(6 =30:% 08-10) =(0.0,15 
(3,—1,0) Xx (4,2,0)  =(0,0,10) 


Portanto, alsertodosellos positivos, la orientación del polígonoesantihoraria. Cuídese 
en conservar un orden consistente al calcular el producto vectorial; en caso contrario 
obtendrá una respuesta equivocada. Por ejemplo 


(—6, —3,0)X (4, 2,0) =(0,0,0)  — las líneas son paralelas 


O (—1, 2,0) X (3, —1,0) = (0,0, —5) — hemos escogido los lados 
en una sencuencia incorrecta 


Programas completos 


I. Listado 7.1 (intersección de recta y plano). Datos requeridos: un vector de base 
(B(1), B(2), B(3) y un vector de dirección (D(1), D(2), D(3)) para la recta, una 
normal (N(1), N(2), N(3)) y una constante K para el plano. Intente los valores 
(1,2, 3), (1, 1, —1), (1,0, 1) y 2 respectivamente. 

IL. Listado 7.2 (intersección de dos rectas). Datos requeridos: vectores de base y di- 
rección para las dos rectas: (B(1), B(2), B(3)) y (D(1), D(2), D(3)), y (C(1), CA), 
C(3) y (EC), EQ), E(B)) respectivamente. Intente los valores (1, 2, 3), (1, 1, —1) 
y (—1,1, 3), (1,0, 1). 

MI. Listados 7.3 y 7.4, “programa principal”, “producto vectorial y producto escalar” 
(vecprod y dotprod). Datos requeridos: dos vectores (L(1), L(2), L(3)) y (M(), 
M(2), M(3)). Utilice los valores (1, 2, 3), 1, 1, —1). 

IV. Listados 7.5 “inversa de matriz 3 x 3” y 7.6 “intersección de tres planos”. Datos 
requeridos: normal (N(I, 1), N(L, 2), N(L 3)) y constante K(I) para los tres planos, 
1 < IT < 3. Sugerimos los valores (1, 2, 3), 0, (1, 1, —1), 1, (1,0, 1), 2. 

V. Listados 7.5 “inversa de matriz 3 x 3” y 7.7 “intersección de dos planos”. Datos 
requeridos: normal (N(I, 1), N(L, 2), N(L 3)) y constante K(I) para los dos planos, 
1 < I< 2. Utilice los valores (1, 2, 3), 0, (1, 1, —1), 1. 

VI Listado 7.8 “orientación de un triángulo en 2-D”. Datos requeridos: los vér- 
tices (X(1), Y(I)), 1 < I < 3. Intente con los puntos (1, 2), 2, 3) y (— 1, 1). 
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Representación matricial 
de transformaciones 
en el espacio tridimensional 


En el capítulo 4 comprobamos la necesidad de transformar objetos en el espacio 
bidimensional. Cuando realizamos figuras tridimensionales, habrá también muchas 
ocasiones en las que sea necesario realizar las transformaciones lineales equivalentes 
en el espacio de tres dimensiones. Al igual que sucedía en dos dimensiones, hay 
tres tipos básicos de transformación: traslación, cambio de escala y rotación. Repre- 
sentaremos las transformaciones como matrices cuadradas (que ahora serán 4 X 4). 
Un punto cualquiera en el espacio con respecto a los tres ejes de coordenadas, se 
representa por el vector fila (x, y, z), dicho vector lo consideraremos como un vector 
columna de cuatro elementos 


Lá 


IS] 


Todas las operaciones con matrices (adición, multiplicación por un escalar, tras- 
posición, multiplicación por un vector columna y producto matricial) que estudiamos 
en el capítulo 4, se pueden extender con facilidad a matrices 4 X 4 y vectores columna 
simplemente cambiando el límite superior de los índices a cuatro en lugar de tres. 
De esta forma, podemos generar una subrutina “mult3” que permita multiplicar dos 
matrices 4 X 4. Esta subrutina es equivalente a la subrutina “mult2” (multiplicación2) 
que usábamos para dos dimensiones. La subrutina multiplica la matriz A por la matriz 
R dando como resultado la matriz B, la cual se copia a continuación en R. Necesi- 
taremos también la subrutina “identidad3” (“idR3”) que hace la matriz R igual a 
la matriz identidad (véase el listado 8.1). 
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Listado 8.1 


a : A e 
E 9100 REM multiplicacion: O | 
9101 REM Datos de entrada A(4,4) | 

: ¿R(4, 4) ' | 

O! 9102 REM Datos de salida R(4,4) OR 


9110 FOR I=1 TO Z : | 
9120 FOR J=1 TO 4 | 
O! 2130 LET B(1,J)=A(I, 1)*R(1,J)+AL ad 
TL DARCR, DAA CIL ZARZA) 

9140 NEXT J 
Se 9150 LET B(1,4)=B(1,4)+A(1,4) :.m 
9160 NEXT 1 | 


YAZO FOR lei TOS 

O 9180 FOR J=1 TO 4 e: 
: 9190 LET R(1,J)=B(1,3) 

9200 NEXT J 
O 9210 NEXT 1 O 
9220 RETURN 


| 
0 9300 REM identidad E 
97302 REM Datos de salida R(4,4) 
Om 9310 DIM R(4,4) Ne 
| 9350 LET R(1,1)=13 LET R(2,2)=1: 
| LET R(3,3)=11 LET R(4,49)=1 | 
Sm 97370 RETURN O 
L a o Aa - l 


Consideremos el caso de una transformación lineal en general sobre puntos del 
espacio en tres dimensiones. Un punto definido por (x, y, z) “antes” se transforma en 
(x”, y”, z*) “después” según el siguiente conjunto dé ecuaciones lineales 


xi = Ai Xx x+ Ai Xx y+A4A13 Xx Z+AÁja 
y = A Xx x+4Az2 xy + A23 x2+ Aza 
z' = Á31 XxXx>+ A32 Xx y + Á33 xz>+ Aza 


a estas tres ecuaciones, añadimos, como siempre, una cuarta ecuación 
1l= As; XXx+ÁAgXxy+As3x2Z+ Ada 


la cual, si se ha de cumplir para todos los x, y, z, implica que A41 = 442 = 443 =0 y 
Áas = 1. 
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Las ecuaciones se pueden expresar en forma matricial con un vector columna repre- 
sentando el punto a alcanzar (el punto final) como producto de una matriz por el 
vector columna que representa al punto inicial 


E Ar As Ass Asa 
y Az1 A22 4A23 Aza 
Z 
1 


- NN <> 


De esta forma, si almacenamos la transformación como una matriz, podemos 
transformar cada punto que se desee considerándolo como un vector columna y mul- 
tiplicándolo por la izquierda por una matriz de transformación. Tal como sucedía ante- 
riormente, las transformaciones se pueden combinar simplemente realizando la se- 
cuencia de transformaciones en el orden adecuado. Si las matrices de transformación 
son 4,B,C,.., LM, N, la matriz equivalente a la combinación será N X MX L X 
X +++ X CXBX A. Tenga siempre presente este orden; como tenemos que multi- 
plicar por la izquierda el vector columna en todas las ocasiones, la primera trans- 
formación aparecerá siempre a la derecha de la matriz producto y la última a la 
izquierda. 


Traslación 


Se trata de transformar cada punto moviendo un vector que llamaremos TX, 
TY, TZ. El planteamiento en ecuaciones entre las coordenadas iniciales y las finales es 


, 


x=1xx+0xy+0xz+ TX 
y =0xx+1xy+0xz+TY 
Z3=0xx+0xy+1x2z2+TZ 


por tanto, la matriz que describe la traslación es 


1.000 TX 
Onil, 201 DY 
00055 EZ 
0:02:00 1 


En el listado 8.2 se presenta la subrutina “traslación3”, cuya salida es una matriz 
como la indicada, teniendo como parámetros de entrada TX, TY y TZ. 


Listado 8.2 
——= ES , = o a 
O 9000 REM traslacion3 Ol 
9001 REM Datos de entrada TX, TY, | 
¡ TZ | 
E 9002 REM Datos de salida A(4,4) O 


3010 DIM A(4,4) 
3050 LET A(1,1)=1:3 LET A(2,2)=15 | | 
) LET A(,D)=11 LET A(4,4)=1 RA] 
3070 LET A(1,4)=TX:* LET A(2,4)=T 
Yi LET AC, 4)=TZ ps 
9080 RETURN > U 


Cambio de escala 


Se trata de transformar la coordenada x de cada punto en una nueva coordenada 
multiplicada por el factor SX, la coordenada y por el factor SY y la coordenada z 
por el factor SZ, por tanto 


xX=SXxx+ 0Oxy+ 0xz+0 
y= 0xx+SYxy+ 0xz+0 
Z= 0xx4+ 0Oxy+58SZxz+0 
lo que nos da la matriz 


5x0. 0-50 


0 SY 0 0 
0-07 .SZ- 00 
Or “07 20001 41 


Generalmente, los factores de escala son positivos; si alguno de los valores es 
negativo el resultado de la operación es una reflexión así como (posiblemente) un 
cambio de escala. Por ejemplo, si hacemos SX = —1 y SY =SZ = 1, los puntos 
se reflejan en el plano y/z respecto al origen. La subrutina “escala3” del listado 8.3 
produce una matriz de escala dados SX, SY y SZ. 


Listado 8.3 


SS. 8900 REM escalas O 

8901 REM Datos de entrada SX, SY, > | 
3Z | 

El 8902 REM Datos de salida A(4,4) O | 

| | 8910 DIM A(4,4) 

| 8960 LET A(1,1)=SX: LET A(2,2)=5 

KO Y: LET A(3,3)=8Z 

8970 LET A(4,4)=1 

8980 RETURN 


O 


Rotación alrededor de un eje de coordenadas 


Antes de considerar el problema de la rotación alrededor de un eje cualquiera 
p + q, abordaremos el caso simplificado de rotación alrededor de un eje de coor- 
denadas. 


eje z entrando eje y entrando eje x entrando 
en la página en la página en la página 


a) b) c) 


Figura 8.1 
a) Rotación de un ángulo 0 alrededor de un eje x 


Si nos fijamos en la figura 8.1c, el eje de rotación es perpendicular a la página 
(con su parte positiva penetrando en ella, ya que estamos usando la convención de 
ejes “zurdos”). La figura muestra el punto (x', y”, z') resultante de aplicar la transfor- 
mación a un punto arbitrario (x, y, z). La rotación, como se ve, queda reducida al 
caso de dos dimensiones en el plano y/z que pasa por el punto; es decir, una vez 
realizada la rotación, la coordenada x permanece inalterada. Utilizando las ideas 
explicadas en el capítulo 4 tenemos el siguiente sistema de ecuaciones 


X= % 
y” =c08s0 x y —sen0 x z 
z' =senO x y +c0s0 x z 
y la matriz correspondiente será 


0 0 0 
cosg —seng 0 
senO coso 0 

0 0 1 


SS 
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b) Rotación de un ángulo 0 alrededor del eje y 


Observando ahora la figura 8.1b, con el eje y positivo penetrando en la página 
y de acuerdo con nuestra convención, el eje z positivo es horizontal y está a la de- 
recha del origen, mientras que el eje x positivo es vertical. El sistema de ecuaciones 
será ahora 


x" =senO x z+c0s0 x x 
y =y 
z' =c080 x z —sen0 x x 
y la matriz 
cos 0 seng 0 
0 1 0 0 
—=sen9 0 cosg 0 
0 0070; 
c) Rotación de un ángulo 0 alrededor del eje z 
Observemos ahora la figura 8.1a. El sistema de ecuaciones será 
x" =c080 x x—senU x y 
y =sen0 x x++c0s0 x y 
7 => Z 
lo que equivale a una matriz 


cos —seng 0 0 


sen cos 00 
0 0 1.0 
0 0 01 


En el listado 8.4 presentamos el subprograma “rotación3” que produce una matriz 
como las indicadas, utilizando como parámetros de entrada el ángulo THETA 
y el número de eje AXIS (AXIS = 1 para el eje x, AXIS =2 para el eje y y 
AXIS = 3 para el eje z). 


Listado 8.4 
| 8600 REM rotacionz 
| 8601 REM Datos de entrada TETA, 
o AXIS 
Ey 8602 REM Datos de salida A(4,4) ( 
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| 8610 DIM A(4,4) 
O 8660 LET A(AXIS,AXIS)=1: LET A(4 O 
y 4) =1 
| 8670 LET AX1=AXIS+1: IF AX1=4 TH 
O EN LET AXi=1 eS 
| 8680 LET AX2=AX1+1: 1F AX2=4 THE 
| N — LET AX2=1 ? 

O) 8690 LET CT=C0S THETA: LET ST=S1 O) 

N THETA 
| 8700 LET A(AX1,AX1)=CT+* LET ACAX | 
O 2, MX2)=CT O 
y 8710 LET A(AX1,AX2)=-ST: LET ACA | 
2, AX1)=ST 
O 8720 RETURN qe 
—— = = AS dy El 


Transformaciones inversas 


Consideraremos ahora las transformaciones inversas, antes de abordar el caso 
general de una transformación de rotación. Se llama transformación inversa a aquella 
que devuelve los puntos transformados por una transformación dada a su posición 
original. Si una transformación determinada está representada por una matriz 4, la 
transformación inversa viene dada por la matriz A” *, matriz inversa de 4. No es 
necesario calcular explícitamente la inversa de una matriz utilizando técnicas tales 
como el método de los adjuntos (listado 7.5): podemos utilizar los listados 8.2, 8.3 
y 8.4 con los parámetros deducidos a partir de los parámetros de la transformación 
original. 


1) Una traslación de (TX, TY, TZ) se invierte por medio de otra traslación de 
(—TX, —TY, TZ). 


2) Un cambio de escala SX, SY, SZ se invierte utilizando como factor de escala 
1/SX, 1/SY y 1/SZ. 


3) Una rotación de un ángulo 0 alrededor de un eje dado se invierte con otra 
rotación de un ángulo —0 alrededor del mismo eje. 


4) Si la matriz de transformación es un producto de un cierto número de matrices 
de traslación, escala y rotación, AX BX C 2 LXMYXMN, la transfor- 
mación inversa será 


N=XMAEX LA eS E DA 
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Rotación de un ángulo y alrededor de un eje arbitrario p + uq 


Asignemos a p = (PX, PY, PZ) y q =(QX, QY, QZ). Vamos a dividir el problema 
en una serie de subtareas. 

a) Trasladamos todo el espacio de manera que el eje de rotación pase por el 
origen. Esto se consigue adicionando un vector —p a cada puñto del espacio con 
una matriz F generada por una llamada a “traslación3” con los parámetros TX = 
= —PX, TY = —PY y TZ = —PZ. Necesitaremos posteriormente la matriz inversa, 
F71, que se utilizará con una llamada a “traslación3” con los parámetros PX, PY 
y PZ. Tras esta transformación el eje de rotación es la línea O + q, que pasa por 
el origen. 


A 1 0.0 PX 

FED 0 1 0 PY 
PS pio 

E A E 

0.0.0 1 O 


b) A continuación giramos el espacio alrededor del eje z un ángulo —« donde 
(ALPHA =) a = tan * (QY/QX), que viene dado por la matriz G. Esta matriz se ge- 
nera llamando a “rotación3”, haciendo THETA = — ALPHA y AXIS = 3. La matriz 
inversa G”* por medio de una “rotación3” con THETA = ALPHA y AXIS = 3. En 
este momento, el eje de rotación es una recta situada en el plano x/z que pasa 
por el punto (v, 0, QZ). 


OX 0Y 0.0 OX =0Y 00 
ME O o A E 
ol 0 0. vo ol 0 0 0 

0 0 0 b 0 0 0.b 


donde v es un número positivo dado por v? = QX? + QY?. 

c) Rotamos ahora el espacio alrededor del eje y un ángulo — f, donde (BETA =) 
PB = tan”? (v/QZ), que viene dado por la matriz H. Esta matriz se genera por una 
llamada a “rotación3” con los parámetros AXIS = 2 y THETA = —BETA, y la 
matrizinversa H”*, llamando a “rotación3” con los parámetros AXIS = 2 y THETA = 
= BETA. 


QZ 0 —-. 0 Q7Z06..v 0 
1 0 w 0.0 1 0 21200 0 

H = H” A 
w yr 0. OZ “0 w -v 0 QZ 0 
DELS O 0.0 0 vw 


donde w es un número positivo dado por w? = v? + QZ? = QX? + QY? + QZ?. 
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De esta forma, el punto (v, 0, QZ) se ha transformado en el punto (0, 0, w) y por 
tanto el eje de rotación es el eje z. 

d) Rotamos a continuación en el espacio un ángulo y (GAMMA) alrededor del 
eje de rotación utilizando la matriz W generada por rotación3 (con AXIS = 3 y 
THETA = GAMMA). 


cos y —seny 


W = 
0 0 


0 
sen y cosy 0 
1 
0 0 0 


1 
1 
0 
1 


e) Finalmente necesitamos devolver el eje de rotación a su posición original, 
de manera que multiplicamos por H”*,G”! y, finalmente por F”?, 


Así pues, la matriz final P que rota el espacio un ángulo y alrededor del eje 
P+uqesP=F"*"XG*XxH"XxWXHXG X F. Naturalmente, algunas de es- 
tas matrices se reducirán a la matriz identidad en casos especiales, y pueden por 
consiguiente despreciarse. Por ejemplo, si el eje de rotación pasa por el origen, 
F y F”? son idénticas e iguales a la matriz identidad 1. 

Es posible, por consiguiente, escribir una subrutina especial “rotación general” 
(listado 8.5) que consigue realizar esta rotación y devuelve la matriz requerida P 
utilizando como datos de entrada GAMMA, (PX, PY, PZ) y (QX, QY, QZ). 


Listado 8.5 


6800 REM rotacion general 

6801 REM Datos de entrada FX,FY, 

FZ, AX, AY, AZ, GAMMA, R(4, 4) 

£6802 REM Datos de salida R(4,4) 

6809 REM Situa el origen en el e 

je de rotacion 

6810 LET TxX=-FX: LET TY=-FYi1 LET 

Tl=-FZi GO SUB trans 60 SUE mu 

IES 

6819 REM Abate el eje de rotacio 

n sobre el plano XZ 

6820 LET AX=0X:3 LET AY=QY: G0 Su 

É angle 

68%0 LET ALFHA=THETA: LET OTHETA= 
; <THETA2: LET AXIS=238 60 SUE rot 
ls GO SUB multz3 

6839 REM Abate el eje de rotacio 

n sobre el eje Z 
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O 6840 LET AX=0Zi4 LET AY=SQR (QX*O ' 
X+QYAQY): GO SUB angle 
6850 LET BETA=THETA: LET THETA=- 
Ó THETA: LET AXIS=2: 60 SUB rotZ: O 
GO SUB mult3 
6859 REM Rota un angulo GANMA «al 
rededor del eje TS 
6860 LET AXIS=3%4 LET THETA=GAMMA 
O ¿ 60 SUB rotí: 60 SUE multi : 
£869 REM Coloca el eje en su pos po 
| icion original 
O 6870 LET AXIlS=24 LET THETA=BETAs 
| 


GO SUB rot: 60 SUB multz3 
6880 LET AXIS=3w8 LET THETA=ALFHA i 
O ¿ 60 SUB rot3: 60 SUB multa O 
6890 LET TX=FX+ LET TY=FYi+ LET T 
2=FZ+ G0 SUB trans 60 SUE muta 

! O) 6900 RETURN 


Ejemplo 8.1 


Explicar qué sucede con los puntos (0, 0, 0), (1, 0, 0), (0, 1,0), (0,0,1) y (1,1, 1) si 
se rota el espacio 1/4 radianes alrededor del eje (1, 0, 1) + (3, 4, 5). 
Utilizando la teoría anterior tenemos 


LAO 50) == TAO A 
IN OIE 1 > A O O 
eb 0.01 -1 e 010.741 
00.0 1 0:00 4 
3400 E 
4.300 Ñ 114 30 
G=-= G7i=- 
Sl 301 200.5: 0) SO 0:57 50 
00:70: 3S 0 0.05 
y E O ES TI y ROA A O 
CAOS 1 1-20 .-.0 
H=-— y H7i=— y 
ad: 0 7 O + 0 A + 
O O E- 0 e 
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l 1 00 
Pd A E 
IN Ds 
A O ES 
1+:9/% == 162 =154 380 26 5% 
y ERRATA 0 SU 32 42 
P = ——— , 
SJ =15= $42. =M0+ 352 254250 -100+30,/2 
0 0 0 50,/2 


donde P=F"*xX G*xXH""XxXxWXHXGXF es la matriz que representa la 
transformación requerida. A continuación multiplicamos los vectores columna equi- 
valentes a (0, 0, 0), (1,0, 0), (0, 1,0), (0,0, 1) y (1,1, 1) por P, cambiando los vectores 
columna resultantes a su forma original de fila y sacando un factor común 1/50,/2. 
El resultado obtenido es (-26 + 6,/2,32 — 42,/2, —10 + 30,/2), (15 + 15,/2, 20 — 
—5,/2, -25+ 25,/2),(-38 — 7,/2,66 — 26,/2, -30 + 65,/2),(—41 + 41,/2, 12 — 37 
y/2,15 + 55,/2) y (-12 + 37,/2, 34 + 16,/2, —-20 + 85,/2), respectivamente. 

Evidentemente las rotaciones y traslaciones en el espacio deben dejar las posiciones 
relativas inalterables; en particular, los ángulos formados por los vectores directores 
deben ser los mismos (esto no es cierto para la transformación de escala, que en 
general modifica las posiciones relativas). En el sistema original, las tres posiciones re- 
lativas de (0, 0, 0) a (1,0, 0), (0, 1,0) y (0, O, 1) respectivamente, son todas ellas perpen- 
diculares entre sí (es decir, el producto escalar de cualquiera de estos pares de di- 
recciones debe ser cero). Por tanto, el producto escalar de las direcciones en el sis- 
tema transformado debe ser asimismo cero: los tres vectores de dirección (eliminando 
el factor 1/50,/2) son (41 + 9,/2, -12 + 37,/2, -15 — 5/2), (-12 — 13,/2, 34 + 
+ 16,/2, -20 + 35,/2) y (-15 + 35,/2, -20 + 5,/2,25 + 25,/2), y se puede com- 
probar que el producto escalar de cualquiera de los pares es cero. 

De igual forma, el producto escalar del vector de dirección desde el origen al 
(1, 1, 1) del sistema original, tomado con cualquier otra de las direcciones originales 
anteriores, da siempre el mismo resultado (= 1). Esto también se cumple en el sis- 
tema transformado: la cuarta dirección es (14 + 31,/2, 2 + 58,/2, —10 + 55,/2), y cal- 
culando el producto escalar de esta dirección con cualquiera de las tres anteriores 
obtenemos el valor 5000, el cual, teniendo en cuenta el factor común eliminado 
anteriormente (1/50,/2)? da el valor 1. 

En el listado 8.6 se presenta un programa que lee el eje de rotación (PX, PY, 
PZ) + 1(QX, QY, QZ) y el ángulo GAMMA, y rota a cualquier punto (XX, YY, 
ZZ) alrededor de dicho eje el ángulo establecido. 
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Listado 8.6 


Ó 


O 


O 
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100 REM rotacion de un punto 
alrededor de un eje dado 

110 DIM A(4,4: DIM E(4,4):2 DIM 
R(4, 4) 4 

120 DIM FC) DIM ARS) 

130 TNFUT “"FUNTFO DEL EJE "ts 
A o EP 7 AA 

140 FRINT AT 1,05 "FUNTO DEL EJE 
Ma AA A E SO ALO 

1530 INFUT "VECTOR DIRECTOR DEL 
EM NA VS a 

160 FRINT AT 4,05 "VECTOR DIRECT 
OR DEL EJE", "('"GQXR 3", "30Y3", "502 
do 

170 INFUT "ANGULO DE ROTACION " 
GAMMA 

180 FRINT AT 7,0; "ANGULO DE ROT 
ACION "¡GANMA 


190 LET muiti=91001 LET idki=93 
00: LET roti=8600: LET trani=900 


Or LET angle=8800: LET genrot=38 
00 

198 REM Calcula R(4,4) para rot 
ar el punto un angulo GAMMA alre 
dedor 

192 REM del eje de punto (FX, FY 
¿EZ) y vector director (0X, QY, AZ 
) 

200 60 SUB idR3s 60 SUBE genrot 
210 FRINT AT 14,053"SEÉ TRANSFORM 
A EN" 

219 REM Lee y transforma el pun 
LO CAY Va Lio 

220 INPUT "FUNTO", "("3XX53",. "5 YY 
AS AVE leds de 

220 FRINT AT 12,0 "EL FUNTO (%:; 
A VU 

240 LET F(1)=XXAR CL, 1) AYER COL, 
JAZZ Rd ARCO, 4) 

230 LET FC2)=XXXARC2, 1) +1 YHRCZ 
AZAR PARC 4) 

260 LET FC) EXX*AR OR, 1) 41 VR Ch 
A ZZAR CO) PARC 4) 


O 


5) 269 REM Salida de datos ee, de 
270 PRINT AT 16,053" (0%; 

l 280 FOR 1=1 TO Zi LET A$=STR$ F 

O (1D: FOR J=1 TO 8 ES 
290 1F A$(I)22" " THEN PRINTA 
LD; | 

5 300 NEXT Ji: 1F 1%>3 THEN FRINT ES 

A 710 NEXT li FRINTO")",, pd 

Ó 220 60 TO 220 3: 

PS Y = 3 | AS 


Ejercicio 8.1 


Experimente con las ideas apuntadas. Su resultado puede siempre comprobarse 
utilizando valores sencillos como hemos hecho arriba. También puede utilizar los 
listados anteriores para comprobar su respuesta. Es esencial que usted adquiera 
soltura en el manejo de matrices, y la mejor manera es experimentar con ellas. Al 
principio cometerá un gran número de errores aritméticos, pero aprenderá pronto 
a considerar las transformaciones en forma de su representación matricial, lo que 
resulta de gran ayuda en el estudio del dibujo de objetos en tres dimensiones. 


Ejercicio 8.2 


Al igual que en el caso bidimensional, habrá observado que la última fila de 
todas las matrices de transformación es siempre (0,0,0,1), y no tiene utilidad real 
en los cálculos. Su única función es formar una matriz cuadrada, lo cual es necesario 
en la definición formal de la multiplicación de matrices. Podemos ajustar esta de- 
finición y la de multiplicación de una matriz por un vector columna, de manera 
que utilicemos únicamente las tres primeras filas de las matrices 4 X 4 (en el capí- 
tulo 4 utilizábamos las dos primeras filas de las matrices 3 X 3 en los listados 4.2a, 
4.3a, 4.4a y 4.5a). Cambie los listados 8.1, 8.2, 8.3 y 8.4 de acuerdo con esta idea. 


Ejercicio 8.3 


Habrá observado que la subrutina “rotación3” es llamada generalmente con un 
ángulo THETA generado por “ángulo” que utiliza los valores AX y AY como pará- 
metros de entrada. “Rotación3” calcula el coseno y el seno del ángulo THETA, 
que equivalen a AX//(AX? + AY?) y AY//(AX? + AY?) respectivamente. Escriba 
otra subrutina de “rotación”, rotxy, que calcule la matriz de rotación directamente 
a partir de AX y AY sin necesidad de recurrir a “ángulo”. 

Obsérvese también que en el comienzo de los listados “rotación3”, “escala3” e 
“identidad3” se procede a poner a cero la matriz reDIMensionándola. Es esta una 
forma eficiente de hacerlo en el Spectrum. En otros ordenadores habrá de sustituirse 
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esta parte por una puesta a cero elemento a elemento a través de bucles FOR... 
NEXT. 


Ejercicio 8.4 

Ya se advirtió en el capítulo 4 que algunos autores utilizan vectores fila en lugar 
de vectores columna multiplicando por la izquierda en lugar de por la derecha. 
Nosotros utilizamos vectores columna, lo que permite que la matriz de transfor- 
mación corresponda directamente a los coeficientes de las ecuaciones de transfor- 
mación. En la otra interpretación se debe utilizar la matriz traspuesta a la obtenida 
por la coeficientes. Sin embargo es útil conocer la existencia del otro método, por 
lo que sugerimos que reescriba todos los programas dados en este capítulo (y en 
el resto del libro). A pesar de todo, recuerde que no es importante el método uti- 
lizado, en tanto que usted sea consistente consigo mismo. La notación en vector 
columna, sin embargo, nos parece más sencilla, y produce menos confusión en las 
primeras etapas de estudio de esta materia. 


Programas completos 


I.. Todos los listados de este capítulo: 8.1, “multiplicación3” (mult3) y “identidad3” 
(idR3); 8.2, “traslación3” (tran3); 8.3, “escala3” (scale3); 8.4, “rotación3” (rot3); 
8.5, “rotación general” (genrot); 8.6, “programa principal”; y el listado 3.4 “ángulo” 
(angle). Datos necesarios: vector de base (PX, PY, PZ), vector de dirección (QX, 
QY, QZ) del eje de rotación y el ángulo GAMMA, junto con un número cual- 
quiera de coordenadas en tres dimensiones (XX, YY, ZZ). Intente con los valores 
(0, 0, 0), (1, 1, 1) y 7/4, y los puntos (1, 0, 0), (1, 1, 1), (1, 2, 3). 


236 


9 
Proyecciones ortogonales 


Dirigiremos ahora nuestra atención al problema de dibujar objetos tridimen- 
sionales en nuestra pantalla gráfica (necesariamente de dos dimensiones). Describimos 
aquí un método sencillo que es una generalización directa del método introducido 
en el capítulo 4 para objetos bidimensionales. Volvemos otra vez a utilizar (hasta) 
tres posiciones. Daremos en principio un breve resumen que nos ayude a fijar estas 
ideas, y a continuación las ampliaremos utilizando un gran número de ejemplos 
gráficos y numéricos. Comenzamos definiendo un sistema de ejes arbitrarios pero 
fijos en el espacio que llamaremos el sistema ABSOLUTO. A partir de ahí, como en 
el espacio de dos dimensiones, consideraremos tres posiciones: 1) INICIAL, 2) ACTUAL 
y 3) OBSERVADA. 


1) Posición INICIAL (SETUP) 


La mayor parte de nuestros dibujos se componen de objetos sencillos (por ejemplo, 
cubos, véase ejemplo 9.1) colocados en una posición y orientación particular en el 
espacio. Resulta muy ineficiente calcular a mano las coordenadas de cada vértice 
dz estos objetos e introducirlas a continuación en el programa. En lugar de ello, 
miraremos nuestro objeto buscando una manera sencilla de definirlo respecto a los 
ejes absolutos, generalmente localizándolo en el origen. La información requerida 
constará de vértices, coordenadas x, y y z, y quizás líneas que unan pares de vér- 
tices o bien caras, áreas poligonales planas limitadas por las líneas mencionadas 
anteriormente (posteriormente consideraremos el problema de las líneas y superficies 
ocultas y daremos los algoritmos necesarios). Esta definición elemental del objeto se 
denomina posición INICIAL. A ella podemos añadir alguna información adicional, 
como el color del objeto. 
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2) Posición ACTUAL 


También denominada posición real. Utilizaremos las técnicas de matrices estudiadas 
en el último capítulo para generar una matriz que mueva el objeto desde su posi- 
ción INICIAL a la posición ACTUAL requerida respecto a los ejes absolutos. A 
esta matriz de paso de posición INICIAL a ACTUAL la denominamos matriz P. 


3) Posición OBSERVADA 


La contemplación de un objeto en el espacio tridimensional requiere un obser- 
vador, evidentemente (el ojo, y obsérvese que es un solo ojo), colocado en la posi- 
ción (EX, EY, EZ) relativa a los ejes absolutos, y mirando en una dirección deter- 
minada. Esta dirección puede determinarse univocamente introduciendo otro punto 
de la línea de visión, que llamaremos (DX, DY, DZ). También podemos inclinar la 
cabeza, pero ya hablaremos de este problema más adelante. Lo que el ojo ve cuando 
mira a un objeto tridimensional es una proyección de sus vértices, líneas y caras en 
un plano de visión bidimensional que es normal a la línea de visión. El cálculo de 
tales proyecciones requiere que preparemos un procedimiento estándar: utilizamos 
métodos matriciales para transformar todos los puntos del espacio de manera que 
el ojo se sitúe en el origen, y la línea de visión a lo largo del eje z positivo. 
Esta posición se denomina posición OBSERVADA, y a la matriz correspondiente 
que transforma la posición ACTUAL en OBSERVADA la denominamos matriz Q 
a lo largo del libro. Más adelante veremos con detalle el método de cálculo de OQ; 
por el momento asumiremos que el ojo ya está colocado en el origen mirando al eje z: 
en este caso, obviamente, la matriz O es la matriz identidad. 

Una vez movidos todos los puntos del espacio a su posición OBSERVADA, 
observaremos que el plano de visión es paralelo al plano x/y pasando por el origen. 
Estando ya el ojo colocado en su posición correcta, estamos listos para proyectar 
el objeto en el plano de visión; obsérvese, sin embargo, que no hemos definido toda- 
vía la posición del plano de visión (únicamente conocemos su normal) ni hemos 
descrito el tipo de proyección del espacio tridimensional sobre el plano. Estas dos 
condiciones están relacionadas estrechamente. En un capítulo posterior trataremos 
de la proyección en perspectiva; en este capítulo abordaremos la más simple, la pro- 
yección ortogonal. 


Proyección ortogonal 


No se puede pedir nada más sencillo. En la proyección ortogonal podemos 
elegir como plano de visión cualquier plano cuya normal esté en la línea de visión. 
Al realizar la transformación a posición OBSERVADA, el plano de visión será cual- 
quier plano paralelo al plano x/y dado por la ecuación z = 0. Por sencillez utili- 
zaremos el plano x/y que pasa por el origen. Los vértices del objeto se proyectan 
sobre el plano de visión sencillamente haciendo sus coordenadas z igual a cero. Así, 
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una pareja de puntos cualesquiera en posición observada (x, y, z) y (x, y, z') por ejemplo 
(donde z 4 2”), se proyectan sobre el mismo punto (x, y, 0), en el plano de visión. 
Seguidamente asociamos los valores x/y del plano con puntos del sistema de coor- 
denadas de la pantalla gráfica (generalmente centrada en la pantalla) utilizando los 
métodos del capítulo 2. Una vez que se han proyectado los vértices en el plano 
de visión y de ahí se han pasado a la pantalla, podemos construir la proyección 
de líneas y caras. Tanto unos como otras están relacionados con los vértices proyec- 
tados exactamente de la misma forma que las líneas y caras originales se relacionan 
con los vértices originales. 

Antes de considerar en detalle el caso general, en el que tanto el ojo como la 
dirección de visión se sitúan arbitrariamente, realizaremos un ejemplo elemental para 
demostrar la proyección ortogonal. 


Ejemplo 9.1 


Utilice las ideas anteriores para dibujar la proyección ortogonal de un cubo. A 
los dibujos como el mostrado en la figura 9.1 los llamaremos diagramas de líneas 
o esqueletos (por razones obvias). Consideraremos la posición INICIAL del cubo 
como ocho vértices situados en (1,1,1), (1,1, —1), (1, —1, —1), (1, —1,1),(— 1, 1,1), 
(-1,1, —1),(-1, —1, —1) y (-1, —1,1): numeramos estos vértices de 1 a 8. Las 
doce aristas que forman el cubo unen los vértices 1 y 2, 2 y 3,3 y 4, 4 y 1, 5 y 6, 
6y7,7y8,8y1,1y5,2y6,3 y7,4 y 8. 

En la figura 9.1a se muestra el ejemplo más sencillo de proyección ortogonal 
de un cubo, en que el paso de posición INICIAL a ACTUAL es la matriz identidad; 
es decir, el cubo permanece en su posición INICIAL. Lo que obtenemos es sim- 
plemente un cuadrado: los pares de líneas paralelas de la parte delantera y trasera 
del cubo se proyectan sobre la misma recta en la pantalla. Hemos utilizado un 
signo “+” en estos diagramas para mostrar la situación del eje z en la posición 
OBSERVADA (introduciéndose en la pantalla). 

La figura 9.1b muestra el mismo cubo dibujado tras haber sufrido las tres trans- 
formaciones siguientes en su posición ACTUAL: 

a) Rotación del cubo un ángulo a = —0,927295218 radianes alrededor del eje z 
(matriz 4). Se ha elegido este valor de manera que cosa = 3/5 y sena = —4/5, lo 
cual asegura una matriz de rotación exenta de elementos complicados. 

b) Traslación por el vector (—1, 0, 0), representado por la matriz B. 

c) Rotación de un ángulo —a alrededor del eje y (matriz C). 

La matriz de paso de posición INICIAL a ACTUAL será por consiguiente 
P=CXB*X A, donde 


3/5 4/5 


0.0 10 0- = 3/5 0 4/5 0 
4/5 3/5 0 0 
Sd / / B= 01 50 0 0 0% 50:20: 
07 0. 50 0: 30: 1 0 4/5 0 3/5 0 
00 0-0: 41 0.0.0 0:-:0- 0: 1 
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con lo que P será 


9 2. 20. 15 
is 1D 0 
235 (==. =16 1% -20 
0 vb 0 2 


Así pues, los ocho tríos de coordenadas de posición INICIAL se han trans- 
formado en las siguientes ocho coordenadas: (26/25, — 5/25, 7/25), (— 14/25, — 5/25, 

— 23/25), (— 38/25, — 35/25, 9/25), (2/25, — 35/25, 39/25), (8/25, 35/25, 31/25), (- 32/25, 
35/25, 1/25), (— 56/25, 5/25, 33/25), (— 16/25, 5/25, 63/25). 

Por ejemplo el punto (1, 1,1) se ha transformado en (26/25, — 5/25, 7/25) ya que 


9 12 $8 1 26 
tl 20. 18 0 0 1 =$ 
25 1-10 =16.18 20 1 

1 


0 0:40 25 25 


La matriz O, matriz de paso de posición ACTUAL a OBSERVADA, es en este 
caso la matriz identidad; por tanto, las coordenadas proyectadas en el plano de visión 
serán (26/26, — 5/25), (— 14/25 — 5/25), (— 38/25, — 35/25), (2/25), — 35/25), (8/25, 35/25). 
(32/25, 35/25), (— 56/25, 5/25), (16/25, 5/25). Podemos a continuación colocar estos 
puntos en la pantalla y unirlos con líneas en el mismo orden en que habían sido 
definidos en el cubo INICIAL. 


Figura 9.1 
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Construcción de la matriz O de paso de posición ACTUAL a OBSERVADA 


Suponemos que el ojo está situado en (EX, EY, EZ) con respecto a los ejes 


absolutos, mirando hacia el punto (DX, DY, DZ). La posición OBSERVADA se con- 
sigue con la siguiente secuencia: 


1) 


Una matriz D que traslada todos los puntos del espacio a través de un vector 


(—DX, —DY, —DZ) de manera que el ojo estará ahora situado en (EX — DX, EY 
— DY, EZ — DZ) = (FX,FY, FZ), es decir, mirando al origen. 


2) 


100 —DX 

0 11 0 —DY 
D = 

0. 0 1 —DZ 

050: :0 1 


Una matriz E que cambia (FX, FY, FZ) en (r,0, FZ) rotando el espacio un án- 
gulo —a, donde a = tan”! (FY/FX) alrededor del eje z. r? = FX? + FY?; to- 
mamos el valor positivo de r, r > 0. 
FX FY 0 0 
l1|-—-FY FX 0 0 
r 0 0: 7800 
0 0 07 


A continuación, una matriz F transforma (r,0, FZ) en (0,0, —s) rotando el es- 
pacio un ángulo n — O alrededor del eje y, donde 0 = tan”! (r/FZ). Se puede 
deducir que s? = r? + FZ? = FX? + FY? + FZ?; tomamos el valor positivo de 
s,s >0, 


=FZ 0 Fr 0 
1 0 0-0 
0 


0» 0 0 *s 


Hasta ahora, la transformación ha colocado el ojo en la posición (0,0, —s) 
sobre el eje z negativo mirando hacia el origen. Está situado, además, a una 
distancia del mismo (s) igual a la distancia que inicialmente había entre el punto 
(EX, EY, EZ) y el punto (DX, DY, DZ). Nuestra siguiente acción es generar una 
matriz G que desplaza el ojo al origen. 


1000 

O 1-0: 0 
G = 

O 0: Ls 

0.0: 0. 1 
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5) Como observamos en el ejemplo 9.1, la matriz P se obtenía por multiplicación 
por la izquierda P = C X B XA. La generación de la matriz de paso ACTUAL 
a OBSERVADO, O, será O = GX F X E X D; por consiguiente, la matriz total 
de paso de posición INICIAL a OBSERVADA será R=QXP=GXF X 
XEXDXCXB*X A. En la figura 9.1c podemos observar el resultado de 
esta proyección ortogonal. Este dibujo no es totalmente satisfactorio, debido a 
que la matriz O coloca el cubo en una orientación arbitraria dentro del plano de 
visión. Es mejor, pues, realizar una proyección más estándar; una de las formas 
más comunes de conseguirlo es mantener la vertical, es decir, lograr que una 
línea que era vertical (paralela al eje y) en su posición ACTUAL permanezca 
vertical tras la transformación con O en su posición OBSERVADA. Si tomamos 
la línea vertical desde (DX, DY, DZ) hasta (DX, DY + 1, DZ), observaremos que 
debido a las peculiaridades de la construcción, la matriz intermedia K(F X E X 
X D), transforma esta línea en otra que une el punto (0, 0, 0) a (K(1, 2), K(2, 2), 
K(3, 2)) que llamaremos (p, q, r). Así pues, si añadimos una nueva rotación alre- 
dedor del eje z de un ángulo f = tan”* (K(1, 2)/K(, 2)) = tan”! (p/q) = tan”? 
(—-FY x FZ/((s x FX)) utilizando una matriz H, antes de multiplicar por G, con- 
seguiremos mantener la vertical 


a —-pp 0.0 
Lap q 0 
H == donde 1? = p? + q? 
EOS 0 5500) R S 
EQ 0 
y por tanto 
p ca 1 0 
1 0.0 t 
.HX q Pe p q X q e 
r O 0 0 r r 
1 0: 20:10 1 1 


En la figura 9.1d podemos ver el resultado final de la transformación, conseguida 
por la nueva matriz R = Q xX P=GXHXFXEXDXCXB X A;la proyección 
de la línea que une los puntos (DX, DY, DZ) y (DX, DY + 1, DZ) es ahora la línea 
que une (0,0) con (0, t) en la pantalla, es decir, la vertical. La matriz G no afecta 
los valores x/y; obsérvese que esta técnica funciona en todos los casos excepto cuando 
(EX, EY, EZ) está situado inicialmente en la vertical sobre (DX, DY, DZ), en cuyo 
caso, mantener la vertical carece de sentido. El programa “observación3” (listado 9.1) 
genera la matriz de paso ACTUAL a OBSERVADO, dados (EX, EY, EZ) y (DX, 
DY, DZ), siguiendo las etapas mostradas aquí; cada etapa multiplica por la izquierda 
la matriz R: de este modo, al final del proceso R contendrá la matriz original mul- 
tiplicada por la izquierda por O. Si deseamos almacenar O explícitamente, necesitamos 
hacer en principio R igual a la matriz identidad (utilizando “identidad3”), a con- 
tinuación llamar a “observación3”, y finalmente copiar la matriz R en Q. La sub- 
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rutina “observación3” se puede reducir radicalmente si suponemos que el ojo siempre 
mira hacia el origen (DX = DY = DX = 0). Observemos, además, que en proyección 
ortogonal la posición observada del ojo no tiene por qué estar localizada en el 
origen; basta con que esté localizada en el eje z: por tanto, podemos reducir aún 
más la subrutina. Lo que aquí se ha presentado es el caso más general, que resul- 
tará de utilidad en posteriores proyecciones en perspectiva. 


Listado 9.1 
E | e F a += E 5d 
| e. B200 REM observacion (5) 
| 8210 INPUT "<XEX,EVJEZ) "EX". 03 
ed EY", "¡EZ 
ax 8220 INPUT "(DX,DY,DZ) "3DX3","3 E 
| DYS*,"SDZ | 
| 8229 REM Mueve el origen a (DX,D 
O | Y, DZ) EY 
| 8230 LET TX=-DX: LET TY=-DY: LET 
O | TZ=-DZ NÓ 
¡ 8240 GO SUBE traniz GO SUBE multa 
? 8249 REM Situa el ojo en el eje 
5% Z negativo, mirando al origen O 
8230 LET FX=EX-DX: LET FY=EY-DYi 
LET FZ=EZ-DZ 
E 8260 LET AX=FX: LET AY=FYi G0 SU NÓ 
: É angle 
E 8270 LET AXIS=2Z8* LET THETA=-THET | 
ee Ax 60 SUB rot3: GO SUB multz NO) 
| 8280 LET AX=FZ3 LET AY=S0R (FXX*F 
: X+FEYXFY)3 60 SUB angle : 
SN 8290 LET AXIS=2:2 LET THETA=F1-TH 110 
ETA: 60 SUBE rot: 60 SUB multz : 
Di 8299 REM Lo mantiene en vertical 
B200 LET TX=0% LET TY=0%* LET TZ= ES 
SOR (FXAFX+EYAFYAFZAFZ) | 
2. 82310 LET AX=TZxXFX: LET AY=-FYxXFZ O 
E : 60 SUE angle 
8320 LET AXIS=234 60 SUB rot (50 
Ey) SUB mul tZ O 
8328 REM Situa el ojo en el orig | 
ent ¡ 
O 8339 REM el espacio esta ahora e 0 
n la posicion OBSERVADA 
A 8330 GO SUB tran 60 SUB multo 
DEE 8740 RETURN ¡O | 


245 


Podemos ampliar, a nuestra conveniencia, este programa para tratar el caso en 
que la cabeza está inclinada un ángulo y respecto a la vertical. Se consigue este 
último punto añadiendo una nueva rotación —y alrededor del eje z. Así pues, la 
matriz H deberá girar en este caso alrededor del eje z un ángulo f$ —y. 

Por último, observemos que la construcción de la matriz de paso ACTUAL a 
OBSERVADA es independiente, obviamente, de todo lo relacionado con la proyección, 
con excepción de la posición del ojo, linea de visión e inclinación de la cabeza. 
De aquí se deduce que si deseamos proyectar una serie de objetos vistos desde la 
misma posición, bastará con calcular y almacenar la matriz O una sola vez y utili- 
zarla repetidamente para cada objeto. 


Cómo definir un objeto 


Abordaremos ahora el problema de representar objetos en el ordenador. No existe 
en este caso una solución única; en realidad depende de qué se está dibujando 
y de cómo se desea proyectar. Describiremos en esta sección varias formas de pre- 
parar una base de datos para almacenar la información necesaria para dibujar una 
escena determinada, pero no comentaremos en ningún caso su mayor o menor uti- 
lidad. En el resto del libro daremos ejemplos que aporten ideas acerca del valor 
de un método determinado en una situación particular. Utilizaremos matrices o vec- 
tores para almacenar conjuntos grandes de datos; por supuesto, la cantidad de me- 
moria asignada a estas matrices dependerá de la cantidad de información que se 
necesite para la escena: asegúrese al dimensionar las matrices de que existe memoria 
suficiente para toda la información; en caso de duda haga una sobreestimación de 
sus necesidades de almacenamiento. 


Vértices. En general, tendremos siempre que definir vértices y otros puntos de 
referencia en la escena; los almacenaremos como coordenadas x, y y z en-los vec- 
tores X, Y y Z respectivamente; si el número total no se conoce explícitamente, 
calcularemos su valor como NOV. Evidentemente, deberá reservarse espacio suficiente 
en los vectores para no menos de NOV valores. Estos vértices se referirán a la po- 
sición INICIAL, ACTUAL u OBSERVADA dependiendo del contexto del problema. 
También se pueden presentar situaciones (sobre todo en perspectivas) en las que se 
necesite almacenar las coordenadas x/y de las proyecciones de estos NOV vértices; 
a este fin dedicaremos los vectores V y W. En el caso de la proyección ortogonal 
estos dos vectores resultan innecesarios, ya que se pueden utilizar los valores alma- 
cenados directamente en los vectores X e Y. La elección de la base de datos, como 
vemos, depende tanto de las escenas en sí como del tipo de proyección deseada. 


Aristas. Podemos almacenar información sobre un cierto número de segmentos 
que llamaremos NOL; esta información se almacenará en una matriz bidimensional L. 
Dentro de dicha matriz, la arista I-ésima estará definida por los índices enteros 
(entre 1 y NOV) de los dos puntos finales del segmento; así pues, en la matriz L al- 
macenaremos los índices correspondientes a la coordenada, en posiciones L(1, ID), 
L(2, I) para el punto I. Evidentemente, los valores reales de las coordenadas de estos 
puntos se podrán localizar en los vectores X, Y y Z. 
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Caras. Se denomina cara o faceta a un área poligonal convexa situada en la super- 
ficie de un objeto tridimensional; se puede definir de varias formas. La mayor parte 
de las caras tendrán forma de triángulo o cuadrado, por lo que para reducir al 
mínimo el gasto de memoria, supondremos que no existen en ningún caso caras con 
más de seis lados. En la variable NOF almacenaremos el número de caras; estas 
estarán definidas por los índices de los vértices situados en su perímetro, los cuales 
guardaremos en la matriz F. El elemento F(l, J) será el índice del vértice I-ésimo 
de la cara J-ésima. Si la cara no es hexagonal, algunos de estos valores serán 
ficticios, por lo que necesitaremos además el vector H, en el que se anotarán el nú- 
mero de vértices o lados de cada cara. También podemos almacenar C, el código 
de color de cada cara; utilicese con precaución: recuérdese que el Spectrum permite 
usar únicamente dos colores en cada bioque como máximo. Otra forma de almacenar 
las caras es en función de los índices de sus lados, utilizando la propia matriz F, 
la cual referenciará ahora a la matriz L; en este caso F(lI, J) significará el índice de 
la recta 1 que pertenece a la cara J. Recuérdese que existen muchos métodos de 
almacenar representaciones numéricas de las caras y de otros elementos del objeto tri- 
dimensional: elija en cada caso la forma que mejor se adapte a su situación par- 
ticular. 


Subrutinas de construcción 


Definiremos una subrutina de construcción para cada objeto que se desee dibujar; 
cada uno de ellos necesitará como parámetros, una matriz R que coloque los vértices 
en su posición, así como cualquier otra información que se necesite acerca del ta- 
maño Cel objeto (si se va a guardar el objeto en posición inicial, evidentemente no 
se necesita matriz). La subrutina deberá definir a continuación los vértices, líneas, 
caras u otros elementos del objeto, y utilizar la matriz R para desplazar los vér- 
tices del objeto hasta la posición deseada. Dependiendo del contexto del programa, 
la subrutina podrá bien dibujar el propio objeto, o bien producir una base de datos 
que contenga esta información. Daremos a continuación ejemplos de ambos métodos. 

Si deseamos construir una escena que contenga varios objetos semejantes (en la 
que los datos estarán en posición ACTUAL u OBSERVADA), no necesitamos fa- 
bricar una nueva subrutina de construcción para cada objeto; simplemente deberemos 
calcular cada vez una nueva matriz P de paso de posición INICIAL a ACTUAL, 
o 0 XP de posición OBSERVADA, dependiendo de la posición a la que deseemos 
llegar. Lo que sí se necesita, por supuesto, es una nueva subrutina para cada tipo 
diferente de objetos. 

Conseguiremos realizar la escena completa ejecutando un programa principal 
(listado 9.2), en el que se declaran todas las etiquetas de subrutina, se prepara la 
pantalla gráfica utilizando valores de entrada HORIZ y VERT, y finalmente se llama 
a una subrutina “escena3” que distribuye los objetos en el espacio y a continuación 
los dibuja. El programa principal que se presenta a continuación se utilizará en 
todos los programas gráficos de tres dimensiones que vienen a continuación; por 
tanto, piénselo dos veces antes de alterarlo. 
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Listado 9.2 


r : ERE IE AA = ES . 
¡Ma 100 REM programa principal ( 
110 LET start=92700: LET setorig 
A in=9600: LET moveto=9300: LET Ji 
(390 neto=9400: LET clip=8400 E 
120 LET roti=8600: LET angle=88 | 
00: LET scalel=8900: LET tranZ=9 | 


pon | 
AAA 000: LET mult3=9100: LET idRI=93 5 
00 z 

0 130 LET scenez=6000: LET lookZ= o 
O) 8200 O] 
139 REM Dimensiona y centra el | 

'0) area de graficos O 
| 140 INPUT "HORIZ ",HORIZ,"VERT | | 
", VERT | | 
O 150 GO SUB start el 


160 LET XMOVE=HORIZ*0.53: LET YM 
OVE=VERT*O. 0 
O 170 G0 SUB setorigin MY 
179 REM Situa la escena 

: 180 60 SUB scenes 
O 190 STOP 


La subrutina “escena3” declara todos los vectores y matrices que se necesitan 
para almacenar la información de la escena, junto con las matrices 4A,B,R y 
(quizá) O para mover los objetos y colocarlos en su posición. También se declaran 
todas las etiquetas de subrutina que sean propias de esta escena. Cuando es nece- 
sario, se inicializan los valores de NOV y NOL (o NOF) los cuales serán actuali- 
zados en las subrutinas de construcción que vengan a continuación. Para dibujar 
cada objeto en particular, “escena3” debe calcular una matriz P que coloque esta 
“pieza” en su posición ACTUAL, y a continuación llamar a la subrutina de cons- 
trucción utilizando la matriz R correcta (ya sea INICIAL a ACTUAL o INICIAL 
a OBSERVADA). Una vez colocadas todas las “piezas” tenemos terminada la escena. 
A veces se realiza el dibujo de la proyección dentro de la propia subrutina de cons- 
trucción, o bien en otras subrutinas diseñadas específicamente para este cometido 
(por ejemplo, subrutinas con algoritmos de líneas y superficies ocultas): en última 
instancia, la elección de una u otra forma depende de lo que se está dibujando 
y de los requerimientos que se exijan a la escena. Encontraremos, como siempre, 
que el paso de parámetros de matrices a subrutinas está restringido; por ello no 
generaremos explícitamente P y O, sino que realizaremos las operaciones necesarias 
para actualizar R. Cuando se necesite la matriz de paso de ACTUAL a OBSERVADA, 
la subrutina llamará a “observación3” (look3). Si se desea almacenar O, deberemos 
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llamar en principio a identidad (idR3), la cual transforma la matriz R en matriz 
identidad; recuérdese que todas las operaciones matriciales se realizan por medio 
de las matrices A y R, usando la matriz B para almacenar los resultados intermedios. 

Emplee siempre la versión con recorte de “línea” (lineto) en sus programas. Es 
muy fácil escoger valores HORIZ y VERT demasiado pequeños, con lo que parte 
del objeto a dibujar se situará fuera del área de gráficos; si no hemos previsto la 
inclusión en el programa de la subrutina de recorte (clip), el programa no funcionará. 
Existe una razón, sin embargo, para hacer pequeños estos valores: se puede de esta 
forma ampliar una pequeña parte de la escena, dibujándola a un tamaño muy grande, 
y recortando todas las líneas exteriores. 

En el listado 9.3 presentamos el primer ejemplo de este método, en el cual la 
subrutina “escena3” construye un dibujo de un cubo como el que se muestra en la 
figura 9.1d. La escena se puede observar desde cualquier posición manteniendo la 
vertical. Disponemos también de la subrutina de construcción cubo (cube, listado 9.4), 
que genera los datos necesarios para dibujar un cubo de arista igual a 2. Los vértices, 
ocho conjuntos de coordenadas, se almacenan en los vectores X, Y y Z. No se 
requiere en este caso almacenar las aristas del cubo explícitamente; de forma que 
disponemos la información en una sentencia DATA y dibujamos las líneas direc- 
tamente. Los datos necesarios para obtener la figura 9.1d son HORIZ = 6, VERT = 4 
(EX, EY, EZ) = (-2, 2, 2) y (DX, DY, DZ) = (— 1,0, 0). 


Listado 9.3 
E RETRATA ] ] í 
MES E 6000 REM escena3/ejemplo 9.1 nO 
6010 DIM X(8):3 DIM Y(8)5 DIM Z72(8 l 
| ) | 
a 6020 DIM A(4,4): DIM E(4,4): DIM - O 
| R (4,4) | 
| 6030 LET cube=6300 
EN] 6039 REM Calcula la matriz R de O 
paso a posicion ACTUAL 
| O 6040 GO SUB idR3 
| 6050 LET THETA=-0, 927295228 LET O 
AXIS=%1 60 SUB rot GO SUE mult 
a | 
O 6060 LET Txe-di LET TY=0% LET TZ O 


=0r 60 SUE tranii 60 SUE mult3 | 

(1 6070 LET THETA=-THETA: LET AXIS= - O 
E ' 22 60 SUB rot3: 60 SUB multz 
607% REM Fremuitiplica KR por la 


| 
e de natriz de paso de ACTUAL a OBESER O 
| VADA 
6080 60 SUB look | 
ES 6089 REM Llama a la rutina de co O 
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Listado 9.4 


O 


O 


O) 


250 


nstruccion para dibujar el cubo 
6090 60 SUE cube 


6100 RETURN 


6300 REM cubo/lineas (no almacen 
aci) 

63501 REM IN :R(3,3) 

é6Sto. DATA istadadadodoi do dd 
bs dels dida + de da dd E sl 
o e! 

63z20 DATA 1,2, 2434 y Ay 
Ta Li da a 
6S30 RESTORE cube 
6039 REM toma los vertices INICI 
ALES del cubo y los coloca en FO 
SICION OBSERVADA 

6340 FOR 1 = 1 TO 8 

6300 READ XX,YY,ZZ 

63560 LET XC(1I) = XXXRK(1,1) + YY*R 
(iy) E ZZXRCLO E HCL 4 

6370 LET YC) = XXARK(2,1) + YYxXR 
Cai2z) b LR Casa) + RC a) 

6IBO LLET. ZCTIY == XXÉERCZ, 1) + YYx*E 
Cy) + ZIRE) + RC 4) 

63790 NEXT 1 

6399 REM informacion sobre arist 
asi dibuja lineas Uniendo pares 
de vertices 

6600 FOR 1 = 1 TO 12 

6610 READ L1,L2 


6620 LET XFT = X(L1)1 LET YET = 
Y (1.1): 60 TO moveto 
660 LET XFT = X(L2)32% LET YFT = 


Y(L2: GO TO lineto 
6640 NEXT 1 
6650 RETURN 


O 


Ó 


O 


Podemos tener, si lo deseamos, más de un cubo en la escena. Por ejemplo, si 
reescribimos “escena3” como aparece en el listado 9.5, manteniendo iguales las demás 
subrutinas, conseguiremos la figura 9.2. Obsérvese que los valores X, Y y Z del 
primer cubo se borran cuando se introduce la segunda llamada a “cubo”. Obsér- 
vese también que, al haber utilizado la misma matriz ACTUAL a OBSERVADA 
para ambos cubos (que se diferenciaban en sus matrices de paso INICIAL a 
ACTUAL), es necesario almacenar O para poderlas utilizar con el segundo cubo. 
Recuérdese que O debe multiplicar la matriz P por la izquierda; esta última desplaza 
el segundo cubo a su posición ACTUAL. Los datos utilizados en la figura 9.2 son 
HORIZ = 9, VERT = 6 (EX, EY, EZ) = (3,2, 1) y (DX, DY, DZ) = (0, 0, 0). 


Listado 9.5 
6000 REM escenad/figura 9,2 
IS: 6010 DIM X(8): DIM Y(8):1 DIM Z(8 
WS ) O 
| 6020 DIM A(4,4): DIM E(4,4):% DIM 
| | 04,4) : 
17 6070 LET cube = 6500 O 
6039 REM dibuja el cubo 1 en pos 
O icion OBSERVADA o 
z 6040 60 SUB idkR3x G0 SUB lookz3 a 


6050 GO SUB cube 
7) 60399 REM dibuja el cubo 2 en pos 
y icion OBSERVADA | 
6060 FOR 1 = 1 TO 4: FOR J = 1 T | 


A? EOTO LETS RRE 
6080 NEXT J: NEXT 1 
O 6070 60 SUB idRi O 
6100 LET TxX=Z4+ LET TY=1.5% LET T 
2l=24 60 SUE traslacionzs; 60 SUE 
O mdtiplicacionz 8 
6110 FOR l=1 TO 4: FOR J=1 TO 4 
JE 6120 LET A(I,J)=0 (1,3) 
O 61730 NEXT Ji: NEXT 1 ld 
| 6140 60 SUB mitiplicacion: 
; 6150 GO SUB cube | 
O 6160 RETURN o 


A > z > — dead 
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Figura 9.2 


Ejercicio 9.1 


Generalice la subrutina “cubo” de tal manera que almacene información sobre el 
tamaño de un bloque rectangular, que permita a la subrutina construir un parale- 
pípedo rectangular de longitud LH, base BH y altura HT: multiplique los valores x 
del cubo inicial por LH/2, los valores y por HT/2 y los valores z por BH/2. 


Debemos hacer notar que la técnica de programación por módulos que explicamos 
en el libro puede no ser la más eficiente para dibujo de objetos tridimensionales. 
Sin embargo, es un método descriptivo que permite romper problemas complicados en 
trozos manejables. Una vez que el lector domine los conceptos, le aconsejamos que 
fagocite nuestros programas y los ofrezca en sacrificio a la diosa Eficiencia. Por el 
momento,permítanos demostrar la validez de este método modular, dando un nuevo 
ejemplo que demuestra la rapidez con que se pueden alterar estos programas para 
producir nuevas escenas y situaciones. 


Ejemplo 9.2 


Deseamos observar una escena determinada (por ejemplo, la que muestra la fi- 
gura 9.2) desde distintos ángulos de observación. 

En este caso, es mejor almacenar las coordenadas de los vértices de la escena en 
su posición ACTUAL, en lugar de la posición OBSERVADA; asimismo guardaremos 
la información sobre las aristas en la matriz L. La subrutina “escena3” (listado 9.6) 
deberá hacer en primer lugar las variables NOV y NOL igual a cero y colocar los 
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objetos a continuación en su posición ACTUAL haciendo la matriz R igual a P. 
Deberemos, por consiguiente, modificar la subrutina de construcción “cubo” (lis- 
tado 9.7) con el fin de actualizar la base de datos (obsérvese, sin embargo, que se 
puede utilizar la misma subrutina para almacenar los vértices en su posición OBSER- 
VADA, ya que sólo necesitamos una matriz diferente R = OQ X P). A continuación, 
para cada ángulo de observación diferente, la subrutina “escena3” deberá borrar la 
pantalla, hacer R igual a la matriz identidad y llamar a “observación3”, pasando 
a continuación el control del programa a una nueva subrutina “dibujo” (listado 9.8), 
que utiliza la matriz R (manteniendo los valores de O, matriz de paso ACTUAL 
a OBSERVADA) para colocar los puntos en posición OBSERVADA y proyectarlos 
ortogonalmente en los vectores V y W (no podemos utilizar X e Y porque alteraría- 
mos nuestra base de datos ACTUAL). La subrutina “dibujo” (drawit), etiquetada en 
“escena3” puede a partir de ese momento utilizar la información del vector L para 
dibujar la escena en la pantalla. 


Listado 9.6 
o A PE q. 
A 6000 REM escenad/figura 9,2 (var es 
| ias vistas) | 
6010 DIM X(16): DIM Y(16)3 DIM Z 
(577% (14) Ca 
6020 DIM V(16):3 DIM W(16): DIM L ] 
| (2,24) 
| 2 e £6030 DIM A(4,4)3 DIM E(4,4):2 DIM hi0) 
| R(4,4) 
A 6040 LET cube=6500: LET drawit=7 
HER 000 0) 
| 60590 LET NOV=0% LET NOL.=0 
6059 REM Almacena el primer cubo : 
> en la posicion ACTUAL. O 
| 6060 60 SUB idRZ 
En 6070 60 SUE cube o 


qa 6079 REM Almacena el segundo cub 
o en la posicion ACTUAL 

Ey 6080 LET TX=32 LET TY=1.5S: LET T O 
Zl=24 60 SUE tranZi GO SUE multz 
6090 60 SUE cube 
> e 56099 REM Bucle que genera las di O 
ferentes vistas 
6100 GO SUB idR3i GO SUB look3 0 
O 6109 REM Dibuja los dos cubos en O 

la posicion OESERVADA 

6110 CLS : GO SUB drawit 
2 6120 60 TO 6100 

6130 RETURN 
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Listado 9.7 


C 


O 


a AS 
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65300 REM REM cubo/ vertices y li 

neas (almacenadas) 

6301 REM Datos de entrada NOV¿NO 

Li XCNOV) , Y (NOV) , Z (NOV) y Lo (2 MOL), 

R(4, 4) 

6502 REM Datos de salida NOW, NOL. 

y X CNO) y Y ONOVO , Z (NOW) , L. (2, NOL.) 

6sló DATA al La be abit, da de dl 

o OLLE e ld da ds el 

als A 

6320 DATA 1,2, Za, SE Llao Os 

Gr Bi La Zas Bd dad nd y 
4,8 

6330 RESTORE cube 

6340 LET NV=NOV 

6349 REM Lee y almacena los vert 

ices en posicion (ACTUAL u OBSER 

VADA) usando K 

6330 FOR [=1 TO 8 

6360 READ XX,YY,2Z32 LET NOV=N0Y+ 

1 

46370 LET X UONOV) =XX%*R (1d, 1) +1 YH CL 

y YA ZZA RC DAR (4) 

4320 LET Y ONOV) =XXxR Cy 1) + YYXAR 2 
ZO AZAR CE 0) FARC 4) 

65 90 LET OZ (NOV) =XXxR (3 y DAY Y RAREOS 

y LA ZZRR Cy PARC 4) 

6600 NEXT 1 

6609 REM Lee y almacena la linea 
de informacion 

6610 FOR l=1 TO 12 

6620 READ Ld,Lís LET NOL=NOL 41 

6630 LET LOL NOL)=L1+NVE LEVES 

y NOL.) 2 NY 

6640 NEXT 1 

6630 RETURN 


NDA 


Listado 9.8 


AE 
7000 REM dibujo 
| 7001 KEM Datos de entrada NOV, NO ] 
e Lay X CNO y Y NOVO y Z NOVO y Lo 2 NOL) a  Q 
: F(4, 4) ' 
A 7002 REM Mueve los vertices a la 
| O l posicion observada y dibuja €l O 
| objeto ] 
O! 7010 FOR I=1 TO NOV O 
| TOZO LET VCCI) =X CI)AR (1, 1) AY CIIRR i 


i (1,2) AZ ODAR CAROL, 4) 
Dl 7OZO LET OW(D)=XCIDIXARCZ, 1) +Y CIR O 
| (24D) AZ CIO ARAR, ARO, 4) 
| 7040 NEXT 1 


¡O 70390 FOR l=1 TO NOL. a, 
7060 LET Li=L (1,1): LET L2=L (Z, 1 
) 
e TO7ZO LET OXFT=V (Li): LET OYFT=wC(L1 0) 


Ja 60 SUE moveto 
7080 LET XET=V(L2)8 LET YFT=W(L2 
O) : GO SUE lineto $, 
7090 NEXT 1 
MES 7100 RETURN 

E DO 


Si el observador viaja en una línea recta, mirando siempre en una misma di- 
rección, la matriz O no necesita ser recalculada cada vez, sino que se puede mani- 
pular-el espacio inicialmente de manera que el observador mire a lo largo del eje z 
y utilizar la subrutina “fijaorigen” (setorigin) para mover al observador. Conforme 
vaya adquiriendo experiencia en el dibujo de proyecciones tridimensionales podrá 
escoger su sistema de construcción y visualización con mayor conocimiento de causa. 
Es bastante infrecuente que se tenga que recurrir al método completo dado en este 
capítulo; normalmente se pueden encontrar atajos que limiten la cantidad de progra- 
mación requerida. 


Ejercicio 9.2 d 
Escriba subrutinas de construcción para un tetraedro, una pirámide, etc. Por ejemplo: 
a) tetraedro: vértices (1, 1, 1), (1, —1, —1),(— 1,1, —1)y(—1, —1, 1); las aristas van 


de la2,dela3,dela4,de2a3,de2a4yde23 a 4. 
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b) pirámide de base cuadrada, de lado 1 y de altura HT: vértices (0, HT, 0), 
(1,0, 1), (1,0, —1),(— 1,0, —1) y (— 1,0, 1); las aristas van de l a 2,de l a 3, de l a 4, 
dela5,de2a3,de3a4 de4a5Syde5Sal. 


Ejemplo 9.3 Z 


Prepare un dibujo de un objeto plano cualquiera situado en el plano x/y; por 
ejemplo, una línea que forme el borde exterior de un carácter alfabético o tira de 
caracteres. Obsérvelo en distintas orientaciones en el espacio tridimensional. Por 
ejemplo, coloque el objeto en la cara de un cubo: lo único que necesita es am- 


pliar la subrutina “cubo” para incluir en ella la información adicional de vértices 
y líneas del nuevo símbolo. 


Hasta ahora hemos restringido nuestros dibujos al caso de un sencillo cubo. Se 
ha hecho así intencionadamente, de manera que la eventual complejidad del dibujo 
no oscureciese el propio método. Por supuesto, estos programas funcionan exacta- 
mente igual con un objeto más complicado, con la única limitación de la propia 
capacidad de almacenamiento del ordenador (y también de tiempo). Lo único que 
necesitamos para definir objetos más complejos es aumentar el tamaño de nuestras 
matrices y vectores, teniendo en cuenta que muchos objetos poseen propiedades geo- 
métricas que permiten ahorrar memoria en la información a introducir. Observemos 
el reactor que aparece en la figura 9.3. Este avión posee un plano de simetría lon- 
gitudinal, que situaremos en el plano y/z y por tanto cada punto (x, y, z) del reactor 
se corresponde con otro punto (—x, y, z). La figura 9.3 se dibuja utilizando los lis- 


Figura 9.3 
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tados 9.1, 9.2, 9.3, junto con una subrutina de construcción “reactor” que .genera 
todos los vértices del aeroplano con coordenadas x positivas: así pues, introducimos 
solamente la mitad de la información requerida para el dibujo completo. Para cons- 
truir éste, necesitamos también una subrutina “dibujo” (listado 9.9) que dibuja una 
de las partes del avión, y a continuación cambia de signo todos los valores x, di- 
bujando la parte restante. 

La construcción de estas figuras es más sencilla de lo que parece. Simplemente 
plantee su objeto en distintas partes en una hoja de papel, anote los vértices más 
importantes y observe los pares de vértices que quedan unidos por líneas. Si realiza 
el dibujo en un papel cuadriculado, podrá utilizar los valores de coordenadas leídos 
directamente en la cuadrícula del papel. Los datos necesarios para realizar la fi- 
gura 9.3 son HORIZ = 160, VERT = 120 (EX, EY, EZ) = (1,2, 3) y DX, DY, DZ) = 
= (0, 0, 0). 


Listado 9.9 
- A 
6000 REM escenaz/reactor ( | 
6010 DIM X(37)2 DIM Y(37): DIM Z 
(37) 
¿de 6020 DIM L(2,46)1 DIM V(37)2 DIM O 
W(37) 
A b030 DIM A(4,4):3 DIM E(4,4):3 DIM 
Y R(4,4) 0 
6040 LET jet=4300: LET drawit=70 E 
= 00 | 
O; 5050 60 SUB ¡dRZ: 60 SUB look3 O 
| 6060 60 SUB jet | 
¡ 6070 GO SUE drawit 
O. 6080 RETURN ES 
O 6300 REM reactor a 
502 REM Datos de salida NOV, NOL. LY 
y X (NOV) y Y (NOV) , Z (NOV) ¿L.(2, NOL.) | 
2% 6510 DATA 0,0,80, 0,0,04, 0,8,32 '0) 
A 
6520 DATA 8,4432, 8,0,32, 4,74,7 
O E Na 
| STO DATA 0,832, 4,8,"32, 8,4, 
2, 8,0432 
O 1 6540 DATA 4,-4,-32, 0,-4,-32, 8, e 
0,24, 48,0,-32 
6550 DATA 8,2,-32, 0,80, 2,85 
1 2, 03232 ¡O 
6560 DATA 28,-4,-24, FO,-2,—24, 
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E) 


3 


O 
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A PI 

6370 DATA 3246/7244 30.76," 24, 

28174184 30,248 

6380 DATA 3242484 34,448, Bey 

618, 20,76,8 

6390 DATA 31,0, 24, 312244 
1-2 ds. Si O. Le 

6600 DATA 0,6,40, 346,40 

6610 DATA 1,2, 2,33 ZLa%du 22d La 

Ei Ed E, 

6620 DATA 4,9%, 3,410, óslldy 7,12, 
8%. 7310 1093 tl dde 

6630 DATA 12,1%, 14,15, 15,10, 1 
3,16, 14,16, 17,18, 17,17%, 18,19 
6640 DATA 20,21, 214224 Digg 
Za 2d 24,20) 20420, 26227. 27128 
6630 DATA 28,29%, 29430, 3Opól, 3 
Lvzós 2er Llana 22 20. Ln 7 
6660 DATA 24,304 2uyadoy go 
a PL E PI A - PE 

6663 REM Fija el vertice y la in 
formacion de lineas para la mita 

d del reactor 

Ó7O0O0 LET NOV=37%2 LET NOL=46 

6710 FOR I=1 TO NOVi READ XC1I),Y 
Le EXT 

O720 FOR TI=1 TO NOL: READ L.(1, 1) 
[Le Ls NEXT. 

6730 RETURN 


7000 REM dibujo/dos mitades del 
reactor 

7001 REM Datos de entrada NOV, NO 
La CNO y Y NOV) y Z ONO Lo (Ey NOL) 
RA 4) 

7010 LET 15=1 

7019 REM Bucle para las dos mita 
des del reactor 

7020 FOR J=l TO 2 

7030 FOR l=1 TO NOV 

7040 LET XX=IS*X(1)21 LET YY=Y(1) 
JU e E 67 47 A 

7049 REM Situa los vertices en 1 
á posicion observada 

7OG0 LET V(1)=XX*XR (1, 1) +YYAR(1, 2 


| IEZZLAR (LAR (4, 4) 
7060 LET W(T)=XXR (2, 1) AV YARCZ, 


o! EZZARAZ, ZO AR OZ, 4) a 
| 7070 NEXT 1 0 
7080 FOR I=1 TO NOL | 
e 7090 LET LisL (1,1): LET L2=L. (2,1 | 
| ) u 
| 7100 LET XFT=V(L1): LET YFT=W(L1 
(O di GO SUBE moveto O 


7110 LET XFT=V(L2):2 LET YET=W(L2 
)¿ 60 SUE lineto 
O 7120 NEXT 1 O 
7130 LET IS=-1 
7140 NEXT J 
O 7150 RETURN ( 


Cuerpos de revolución 


Hasta el momento, la construcción de objetos en nuestros programas se ha basado 
en una entrada de datos por medio de sentencias DATA que contuviesen la infor- 
mación necesaria sobre vértices y aristas. Trataremos ahora con un. nuevo tipo de 
objetos, en el cual necesita una pequeña cantidad de información única, siendo el 
objeto en sí bastante complicado; nos referimos a los cuerpos de revolución, de los 
que se puede observar un ejemplo en la figura 9.4. 


Figura 9.4 
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El método para dibujar este tipo de objetos es sencillo. Comenzaremos creando 
una secuencia definida de NUMV líneas en el plano x/y; llamaremos a esta secuencia 
el conjunto de definición. El paso siguiente es girar dicho conjunto alrededor del 
eje vertical (eje y) un número determinado de veces, NUMH — 1, con el fin de crear 
nuevos conjuntos verticales. Las NUMV líneas del conjunto de definición se forman 
uniendo ordenadamente los NUMV + 1 vértices de la forma (S(I), T(L), 0), donde 
1<I< NUMV + 1. A partir de este conjunto primario generamos NUMH conjuntos 
verticales diferentes. Cualquiera de ellos, por ejemplo el J, equivale al conjunto de 
definición girando un ángulo PHI + 2x(J — )/NUMAH alrededor del eje vertical y, 
donde PHI(p) es un dato de entrada arbitrario. Una vez definidas las NUMH x 
x NUMUV líneas, todas ellas de planos verticales, introduciremos líneas horizontales 
además. Las líneas horizontales se consiguen uniendo las diferentes posiciones que 
cada punto ocupa en los distintos conjuntos. Consideremos el punto (S(I), T(T), 0) 
que se encuentra al final de un segmento en el conjunto de definición: según vamos 
rotando alrededor del eje vertical, dicho punto ocupa NUMH posiciones (suponiendo 
que el punto no se encuentra sobre el eje de rotación) 


(SD) x cos(0 + $), TD), S() x sin (0 + q) 


donde 9 = 2x(J — I) para 1 <J < NUMH. 

Estos NUMH puntos se unen ordenadamente, y el último de ellos (el de posi- 
ción NUMH-ésima) se une con el primero; de este modo conseguimos el conjunto 
de líneas horizontales I-ésimo. Así pues, existen (NUMH — n) x NUMV líneas ho- 
rizontales, donde n es el número de vértices que se encuentran sobre el eje de rotación. 
El listado 9.10 es una subrutina de construcción que dibuja el “cuerpo de revolución”, 
dados NUMV, NUMH, PHI, el conjunto original de vértices en T y S y la ma- 
triz de posicionamiento R. El listado 9.11 es la subrutina correspondiente “escena3” 
que dibuja el esferoide de la figura 9.4 introduciendo los valores de ocho puntos 
de un semicírculo en el conjunto de definición: HORIZ = 3.2, VERT = 2.2, PHI = 
= 1/25, NUMH = 10, NUMV = 8, observado desde (1,2, 3) mirando hacia (0, 0, 0). 
En el listado 9.11 se supone que NUMV es menor o igual a quince. 


Listado 9.10 


í E == O o 
) 6000 REM escenañ/esferoide | 
' 6010 DIM X(22)2 DIM Y(32 
6020 DIM A(4,4):3 DIM B(4,4): DIM 
2N R(4, 4) ( 
6030 DIM S(16): DIM T(16) | 
j 6040 LET revbod=6500 : 
| O 6050 INFUT "NUMERO DE LINEAS HOR MES 
| IZONTALES", NUMH 
| : 6060 INFUT "NUMERO DE LINEAS VER 
O | TICALES", NUMY l 


AAA E 


Listada 9.11 


O 


O 


O 


6070 INFUT "ANGULO FI "3FHI 

6080 LET THETA=F1/21 LET TD=FI/N 
UMV 

6089 REM Genera los valores de dl 
efinicion 

6090 FOR I=1 TO NUNMV+1 

6100 LET S(1)=C008 THETAs: LET TCI 
)J=SIN THETA 

6110 LET THETA=THETA+TD 

6120 NEXT 1 

6130 GO SUB ¡dR3s GO SUE look: 
6140 GO SUBE revbod 

6150 RETURN 


6500 REM cuerpo de revolucion 
6301 REM Datos de entrada FHI,NU 

MH, NUMV, S (NUMYV+1) , T (NUMYV+1),RK(4, 
4) 

6309 REM Genera el primer juego 
de lineas verticales 

6510 LET THETA=FHI4 LET TD=FI*Xx2/ 
NUMH 

63520 LET Ni=NUMV+12 LET C=C0OS FH 
lz LET S=SIN FHI 

63530 FOR I=1 TO Ni 

6540 LET XX=S(1)xC01 LET YY=T(T)5 
LET Z22=8(1)%5 

63530 LET X(1)=XXAR(1, 1) +YYXR(1, 2 
JAZZRR CL ARCO, 4) 

6360 LET Y(T)=XXXRCZ, 1) AV Y AROS 
IAZZAR Cy ARE 4) 

6370 NEXT 1 

6577 REM Bucle para el segundo 
uego de lineas verticales 

6580 FOR J=1 TO NUMH 

63590 LET THETA=THETA+TD: LET C=C 
OS THETA: LET S=SIN THETA 

6600 FOR I=1 TO Ni 

6610 LET XX=5(1)x*C03 LET YY=T(I)3 
LET Z22=5 (135 

6620 LET X(I+N1)=XXXAR (OL, 1) +YY%R 


a a li a a, ls o tl a (E li A A 


O 
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1,2)+2Z2*R(1,3)+R (1,4) 0 
66730 LET Y(I+N1)=XXAR (2, 1) +YYXRE 


1 
1 
| 2, 2)+ZZAR (2, DAR(Z, 4) 
2 6640 NEXT 1 "O 
- 6649 REM Dibuja el primer Juego 
| de lineas verticales 
De 6650 LET XFT=X(1)1 LET YFT=Y(1)5 O 
GO SUB moveto 
O 6660 FOR I=2 TO Ni 
6670 LET XFT=X(1):3 LET YET=Y(1): O 
GO SUBE lineto 
O 6680 NEXT 1 y O 
6689 REM Une los correspondiente 
s vertices horizontales en las 1 : 
De inees verticales O 
6690 FOR I=1 TO Ni 


6700 LET XFT=X(1)3 LET YFT=Y(1): 
O GO SUB moveto O 
E 6710 LET XFT=X(1+N1): LET YFT=Y( 


14+N1): GO SUB lineto 
O 6719 REM Copia el segundo juego 0 
' vertical en el primero y repite | 
el proceso 
Os 6720 LET X(1)=XFT: LET Y(1)=YPT 1 
6730 NEXT I : 
6740 NEXT J rl 
O 6750 RETURN LO 
EA E = = S > _ =. E Es Ll J 
Ejemplo 9.4 


Siga experimentando con esa técnica; cualquier secuencia de líneas es válida. 
Pruebe a dibujar un elipsoide: en esencia el problema es el mismo que con el es- 
feroide excepto que en el conjunto de definición se introducen puntos de una semi- 
elipse en lugar de puntos de un semicírculo. Los cuerpos producidos no tienen por 
qué ser convexos. Se pueden cortar unas líneas a otras, cruzar adelante y atrás sobre 
el eje y y tener valores en x que las mueva arriba y abajo. Esta idea puede am- 
pliarse en el llamado cuerpo de rotación. Si tenemos un conjunto de líneas que se 
mueve alrededor del eje central, los valores y de los puntos no son constantes. Po- 
demos movernos de una forma regular, es decir, con incrementos iguales para cada 
rotación parcial 21/NUMH. Por supuesto, en este caso las líneas podrán realizar más 
de una rotación completa alreeedor del eje; un ejemplo de este tipo de cuerpos lo 
tenemos en la figura 9.5. Escriba un programa capaz de realizar una figura seme- 
jante a ella. 
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Figura 9.5 


Programas completos 


En adelante llamaremos a los listados 3.4, “ángulo” (angle); 8.1, “multiplicación3” 
e “identidad3” (mult3 e idR3); 8.2, “traslación3” (tran3); 8.3, “escala3” (scale3); 8.4, 
“rotación3” (rot3); 9.1, “observación3” (look3) y 9.2, “programa principal”, como 
un conjunto de programas denominado “rut3”. 


L  “rutl”, “rut3” y los listados 9.3, “escena3” (scene3) y 9.4 “cubo” (cube). Datos 
necesarios: HORIZ, VERT (EX, EY, EZ) y (DX, DY, DZ). Intente los valores 6, 
4 (1, 2, 3), (— 1,0, 1). 

IL. “rut1”, “rut3” y los listados 9.5, “escena3” (scene3) y 9.4, “cubo” (cube). Datos 
necesarios: HORIZ, VERT, (EX, EY, EZ) y (DX, DY, DZ). Utilice los valores 9, 
6, (1,2, 3), (— 1,0, 1). Realice cambios sistemáticos en uno de los valores man- 
teniendo los demás parámetros constantes. 

MIL  “rutl”, “rut3”, y los listados 9.6, “escena3” (scene3); 9.7, “cubo” (cube) y 9.8, 
“dibujo” (drawit). Datos necesarios: HORIZ, VERT y entradas repetidas de 
(EX, EY, EZ) y (DX, DY, DZ). Pruebe los valores 9, 6, y a continuación (1, 2, 3), 
(—1,0, 1) y (3,2, 1), (0,0, 1). Intente aquí también .realizar cambios sistemáticos 
en uno de los parámetros de entrada. 

IV. “rutl”, “rut3” y el listado 9.9, “escena3”, “reactor”, y “dibujo” (scene3, jet 
y drawit). Datos necesarios: HORIZ, VERT, y entradas repetidas de (EX, EY, 
EZ) y (DX, DY, DZ). Pruebe 160, 120, y a continuación (1, 2, 31), (— 1, 0, 30) 
y (3, 2, 20), (0, 0, 21). También aquí puede intentar cambios sistemáticos. 

V. “rutl”, “rut3” y los listados 9.10, “escena3” (scene3) y 9.11, “cuerpo de revo- 
lución” (revbod). Datos: HORIZ; VERT, NUMH, NUMV (< 15), PHI (EX, EY, 
EZ) y (DX, DY, DZ). Utilice 3.2, 2.2, 10, 10, 1 (1,2, 3), (0, O, 0); (3, 2, 1), (0, O, 0). 
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10 


Algoritmos sencillos 
de líneas 
y superficies ocultas 


Ya hemos comenzado a dibujar cubos y otras figuras geométricas compuestas 
de líneas (lo que llamábamos “esqueletos”). A estas alturas, el lector se sentirá pro- 
bablemente molesto por la falta de “solidez” de las figuras. Los objetos que estamos 
acostumbrados a ver en la vida cotidiana son objetos sólidos, en los cuales las caras 
de la parte frontal del objeto impiden la visión de las caras y aristas posteriores. 
Para poder transformar nuestras figuras en este tipo de objetos, deberemos introducir 
un algoritmo de superficies ocultas; o bien un algoritmo de líneas ocultas si deseamos 
dibujar únicamente aquellas líneas del objeto que sean visibles desde nuestro lugar 
de observación. Existe un enorme número de algoritmos de este tipo: algunos de ellos 
muy elementales para situaciones especiales restringidas; otros, muy complicados, 
para propósito general; con estos últimos seremos capaces de dibujar escenas real- 
mente complejas. La implementación de un algoritmo complicado en un micro- 
ordenador está limitada por el tiempo de ejecución del programa correspondiente. 
En el caso del Spectrum, tenemos la limitación adicional de no poder utilizar más 
de dos colores en un mismo bloque, lo cual a su vez restringe la utilización de 
las líneas a emplear en el objeto. En cualquier caso, limitando el tipo y número de 
objetos que aparecen en la escena se puede llegar a conseguir pantallas muy aceptables. 
En el capítulo 12 presentaremos un algoritmo relativamente complejo; en éste, por el 
contrario, trataremos con dos tipos especiales de escenas, en los que utilizaremos 
las propiedades implícitas de estas configuraciones particulares para minimizar el 
trabajo necesario para la toma de decisiones sobre qué líneas y superficies están 
ocultas. Más tarde, en este mismo capitulo, daremos un método sencillo para dibujar 
superficies tridimensionales definidas matemáticamente; para empezar, sin embargo, 
consideraremos un algoritmo de dibujo de un sólido convexo sencillo en el espacio 
tridimensional. 
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Nuestro trabajo en el campo de algoritmo de líneas y superficies ocultas em- 
pieza definiendo los NOV vértices de los objetos de la escena en su posición OB- 
SERVADA; almacenaremos estos vértices en los vectores X, Y y Z, como siempre. 
Sin embargo, en este caso utilizaremos la información de caras en lugar de la de 
líneas, como hacíamos anteriormente. Las NOF caras se almacenan en una matriz F 
(necesitaremos además el vector H que indique el número de aristas de cada cara), 
suponiendo que ninguna cara tiene más de seis aristas con el fin de ahorrar me- 
moria. En caso de que alguna cara tuviese realmente más aristas, podremos dividirla 
en un conjunto de poligonos menores. Para facilitar la tarea del algoritmo de super- 
ficies ocultas, impondremos una restricción sobre el orden de vértices en la matriz F. 
Los vértices se almacenarán en el orden en que aparecen según vamos bordeando 
la cara, de tal forma que, visto desde el exterior del objeto, se asigna un sentido 
antihorario. Evidentemente, este mismo orden desde el interior del objeto tendrá sen- 
tido horario. Supondremos también que todas las líneas son uniones de dos caras; 
si deseamos emplear líneas individuales que no formen parte de caras, las introduci- 
remos como un “polígono” trivial de dos lados. 


Orientación de un triángulo tridimensional 


Una vez que hemos decidido el objeto a dibujar y lo hemos traducido a vértices 
y caras, se nos presenta el problema de averiguar si estas caras están orientadas 
realmente en sentido antihorario. Para resolverlo, simplemente escribimos un programa 
al efecto. Se.puede calcular la orientación de un polígono convexo cualquiera cono- 
ciendo la de tres de sus vértices, tomados en orden; por consiguiente, necesitamos 
solamente conocer un triángulo ordenado de vértices de la cara en cuestión. Como 
ya vimos en el capítulo 7, existe un método sencillo de calcular la orientación de 
un triángulo bidimensional; nuestro problema, pues, se reduce a adaptar la situación 
tridimensional a otra en dos dimensiones. 

Para simplificar, supondremos que todos los objetos se sitúan en posición INICIAL 
alrededor del origen. Supondremos también que los planos que contienen a las caras 
del objeto no pasan por el mismo. Giramos el espacio de manera que uno de los 
vértices del triángulo en cuestión caiga en el eje z negativo (compárese con la su- 
brutina “observación3” del listado 9.1). Como suponemos que el origen está en el 
interior del objeto y el eje fuera, simplemente necesitamos proyectar el triángulo 
transformado de nuevo al plano x/y (es decir, ignorando la coordenada z) y tratarlo 
como un triángulo bidimensional (de hecho, uno de los tres vértices será (0, 0)). En 
el listado 10.1 se presenta nuestra solución al problema. 


Ejercicio 10.1 
Reescriba la subrutina de las figuras “esqueleto” del último capítulo, suponiendo 
que los datos están dados como vértices y caras poligonales antihorarios, y no como 


líneas. Compruebe los datos de las caras con el programa anterior. La información 
sobre líneas está contenida impliticamente en la información de caras: recuérdese 
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que estas líneas son las aristas de cada cara, consideradas como pares de vértices. 
Obsérvese también que la información de cada arista aparece dos veces, una vez 
para cada una de las caras adyacentes. Por supuesto, no pretendemos malgastar 
tiempo dibujando cada línea dos veces. Debido a la forma antihoraria de cons- 
trucción de las figuras, observaremos que si una línea es la arista que une el vértice I 
al vértice J de una de las caras, en la cara adyacente la misma línea unirá el vér- 
tice J al L Así pues, cuando la información de una determinada figura se almacene 
en forma de caras, deberemos dibujar las líneas (aristas) de unión del vértice I al 
vértice J, si y sólo si I < J. 


Listado 10.1 


PS , a a 
100 REM orientacion de un trian O 
| gulo en 3-D 

| 110 DIM X(3)2 DIM Y(3)8 DIM ZC3 

2 Led 


120 DIM A(4,4)3 DIM E(4,4): DIM 
R (4,4) 
Y 130 LET rot3=8600: LET angle=88 Be 
: 00: LET multi=9100: LET idRi3=930 
: O 
O 140 LET J$="COORDENADAS DEL TRI O 
ANGULO b 
O 149 REM Transforma el triangulo o 


para que todos los vertices se 
hallen en el plano XY 
150 FOR 1l=1 TO 


sd 160 LET I$="VERTICE ("+STR% 1+") O 
l =("” 

O! 170 INPUT (IS+1I$)X(1) 3", "3 Y 0D O 
| RIAL 60 0 li E 
180 PRINT AT 2+2*1,051$53X(1)53", 

e SN CIN Ls ES 
190 NEXT 1 
| 199 REM Halla la matriz R que s 

O itua (X(1),Y(1),Z(1)) en el eje A 
| Z negativo 
200 GO SUB idRA 

o 210 LET AX=X(1)3 LET AY=Y(1):3 6 
O SUB angle 

o! 220 LET AXIS=2%8 LET THETA=-THET 


Az: GO SUBE rot: 60 SUB multz3 
230 LET AX=Z(1): LET AY=SQR (X( 
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10)*x(1)+Y(1)*Y(1)): 60 SUE angle 


a en 2-D) 

300 FRINT AT 11,03"SI EL OJO Y 
EL ORIGEN ESTAN EN" O 
210 FRINT AT 13,03 "CARAS OFUEST 
AS ENTONCES" 


| 
240 LET AXIS=24 LET THETA=FI-TH ! O 
ETA: GO SUE rot: 60 SUB multa | 
250 FOR I=1 TO 3 
260 LET XX=X(1): LET YY=Y(1):3 L. E 
ET ZZ=Z(1) E 
270 LET XC(1)=XXR(1, 1)+YYxR(1,2 
IAZZAR (1, ZAR (1,4) Lp 
280 LET Y(1)=XXARC(2Z, 1) VYARCZ, 2 
IAZZAR AZ, IA RC, 4) 
290 NEXT 1 o 
2929 REM Comprueba en que sentid 
o esta girado el triangulo (ahor | e) 
| 


720 PRINT AT 15,03 "EL TRIANGULO NO) 

ESTA EN SENTIDO"*? 

330 LET DXi=X(2)-X(1): LET DYi= 

Y(2)=-Y (1) e de 

740 LET DX2=X(3)-=X(2)1 LET DY2= 

Y (3) Y (2) 

250 IF DX1XxDY2-DX2x*DY1>0 THEN O 

FERINT "ANTI"; 

760 FPRINT "HORARIO" | 

270 STOP qe 
L 


Un algoritmo de superficies ocultas 
para cuerpos convexos cerrados sencillos 


Llamamos cuerpo convexo a aquel en que cualquier segmento que una dos puntos 
del interior del cuerpo, pertenece al mismo en su totalidad; la definición es una ex- 
tensión directa del caso bidimensional. Además está cerrado, siendo por tanto im- 
posible pasar del interior al exterior del cuerpo sin atravesar su superficie. Cuando 
proyectamos ortogonalmente los vértices del objeto en el plano de visión, observa- 
mos que la proyección de un polígono convexo de n lados en el espacio bidimen- 
sional sigue siendo un poligono convexo de n lados en el plano de visión (o dege- 
nera en una línea). Tomando los vértices proyectados de una cara cualquiera en el 
mismo orden que los vértices originales, encontraremos que o bien el nuevo polígono 
bidimensional presenta orientación antihoraria, en cuyo caso estamos viéndolo desde 
la parte externa de la cara, o bien los nuevos vértices son horarios y estamos obser- 
vándolos desde el interior. Al ser cerrado el objeto, sólo podremos ver aquellas caras 
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que contemplamos desde su parte exterior: la visión del resto de las caras se verá 
bloqueada por el propio objeto. Por tanto nuestra misión se reduce a dibujar única- 
mente aquellos polígonos que conserven su sentido antihorario; este algoritmo, muy 
simple, puede implementarse en cualquier subrutina de construcción o en la subrutina 
“dibujo”. 

Como ejemplo, presentamos en el listado 10.2 una subrutina de construcción 
“cubo” preparada para eliminar las líneas ocultas en proyección ortogonal. En este 
caso no hemos almacenado las caras, sino que tomamos directamente la información 
por medio de sentencias READ a partir de un bloque DATA y dibujamos aquellas 
caras que sean visibles inmediatamente. Utilizando este programa se ha realizado la 
figura 10.1, versión de líneas ocultas de la figura 9.1d. Empleamos todas las subru- 
tinas del capítulo anterior que utilizamos para dibujar la figura 9.1d, con excepción 
de la subrutina de construcción que preparaba los datos como vértices y caras, 
y a continuación dibujamos el objeto (estamos sustituyendo el listado 9.4 del pro- 
grama de dibujo de la figura 9.1d). Los datos utilizados para la figura, natural- 
mente, siguen siendo los mismos de la figura 9.1d. 


Listado 10.2 


1 5 PA ña 3 M A 
' O 4300 REM cubo/eliminacion de lin (O) 

cas ocultasino almacenadas) 
63501 REM Datos de entrada R(4, 4) 


[7 GO DATA Tetris Tilasto y 14 =1 ES 
| dsd da dido Lodo 11 
andy 11,1 
O: ¿800 DATA 1,2,3,4, 5,8,7,6. 1,5, O 
6r2ls Labios 571814, 449,502 1 
ot 6S3O RESTORE cube O 
: 03539 REM Situa los vertices en 1 
a posicion OESERVADA 
O! 6340 FOR I=1 TO 8 O 
6550 READ XX,YY,ZZ 
: 6300 LET X(1)=XXXR(1, 1)+YY*HK(1,2 : 
2 JRZZAR CL AH Rd, 4) O 
| 6570 LET Y(T)=XXARC2, 1) +1 YxARCZ, 2 
: JAZZ AR TAREA, 4) 
O 6580 NEXT 1 O 
| 6590 FOR I=1 TO 6 
: 6398 REM Lee la informacion de € 
O aras y las dibuja si estan O 
63799 REM orientadas en sentido a 
eN ntihorario 
6600 READ F1,F2,FZ3,F4 ES, 
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¡o 6610 LET DX1=X(F2)-X(F1 
i=Y(F2)-Y(F1) 


6620 LET DX2=X(EZ)-X(F2 
O! LY (E) Y (FL) 
| : 6630 1F DXIXDY2-DX2x*DY 1 
O GO TO 4690 


6640 LET XFT=X(F1)2 LET 
32 60 SUE moveto 
O 6630 LET XFT=X(F2D2 LET 
' 32 60 SUE lineto 
6660 LET XFT=X(F3Z)2 LET 
e 12) G0 SUE lineto 
667% LET XFT=X(F4):3 LET 
12 60 SUE lineto 
IA 6680 LET XFT=X(F1)2 LET 
| 31 60 SUB lineto 
xl 667% NEXT 1 
O 6700 RETURN 


Figura 1 


Ejercicio 10.2 


Ye LET DY 
e LEFT DY 
¿0 THEN 
YET=Y (1 
YETY (FR 
VPTSY (EZ 
YET=Y (F4 


YE T=Y(F1 


0.1 


Modifique el listado 10.2, de manera que dibuje un bloque rectangular de lon- 
gitud LH, base BH y altura HT, donde LH, BH y HT son parámetros de entrada 
a la subrutina. A continuación realice un programa de eliminación de líneas ocultas 
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con el mismo. Repita el ejercicio con figuras de tetraedros, pirámides, octaedros, etc. 
Añada nuevos parámetros al programa para distorsionar las figuras de manera que 
no sean regulares, aunque sí convexas. 


Cuerpos de revolución 


Podemos utilizar este método de caras antihorarias y horarios para producir 
versiones con líneas ocultas de los cuerpos de revolución definidos en el capítulo 9. 
Partimos de NUMH revoluciones generando NUMV caras en cada movimiento. 
Nuestras caras serán ahora cuadriláteros o quizá triángulos degenerados; si obser- 
vamos con cuidado la orientación antihoraria, podemos utilizar el mismo algoritmo. 
El listado 10.3 es una subrutina que produce la figura 10.2, versión de la figura 9.4 
con líneas y superficies ocultas (empleando los mismos datos de entrada). También 
aquí, debido al diseño modular de nuestros programas, para dibujar la figura 10.2 
utilizaremos todas las subrutinas que empleábamos en el capítulo 9, con excepción 
de “cuerpo de revolución” (revbod). El programa, sin embargo, queda ahora restrin- 
gido a cuerpos de revolución convexos. 

Conforme la subrutina va rotando el conjunto de definición de rectas alrededor 
del eje vertical, se almacenan los vértices de dos conjuntos consecutivos de rectas 
verticales. Estos forman aristas verticales de cada tajada de caras. Los vértices de 
estas caras se transforman inmediatamente por medio de la matriz R (matriz de paso 
de posición INICIAL a OBSERVADA) y se almacenan en los vectores X e Y. Con 
tal configuración de pares de líneas verticales, el primer conjunto de vértices tendrá 
índices que van desde 1 a NUMV + 1(= NI), y el segundo desde N1 + 1 hasta 
2*N1. La cara I-ésima estará rodeada por cuatro líneas, las dos verticales que unen 
los vérticeslal + 1,el + NlaI + N1 + 1, y los dos horizontales que unen la I + Nl, 
el + 1a I + NI + 1. Se deben realizar ajustes en caso de que alguno de los vértices 
originales pertenezca al eje de rotación, en cuyo caso el cuadrilátero degenera for- 
mando un triángulo. Escogemos en cada cara el orden de los vértices cuidadosamente 
de manera que la orientación antihoraria sea la que se observa desde el exterior del 
objeto. Ello nos permitirá utilizar el sencillo algoritmo enunciado anteriormente para 
dibujar el objeto eliminando líneas ocultas. Esta técnica es la misma que se usó para 
dibujar la figura 1.1 de la introducción. 


Listado 10.3 


6300 REM cuerpo de revolucion/el 3 
iminacion de lineas ocultas 
6301 REM Datos de entrada FMI, NU 


MH, NUMU, S (NUMV+1) , T(NUMYV+1),R(4, et 
4) | 
A 6510 LET THETA=FHI2 LET TD=F1x2/ 
+ NUMH JA 


2n 


O 
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6320 LET Ni=NUMV+1i+ LET C=COS FH 
Il: LET S=SIN FHI 

6329 REM Crea el primer juego de 
lineas verticales 

6530 FOR I=1 TO Ni 

6340 LET XX=S(1)xC1: LET YY=T(D):1 
LET ZZ=S(1)%S 

63390 LET X(1)=XX*R(1, 1) +YYAR(1,2 
IJAZZAR Cd, AR (1,4) 

6360 LET Y(1)=XXARCZ, 1) +YYXRCZ, 2 
IAZZAR AR, IAH RED, 4) 

6370 NEXT I 

6379 REM Bucle para el segundo 
juego de lineas verticales 

65380 FOR J=1 TO NUMH 

65390 LET THETA=THETA+TD+* LET C=C 

OS THETA: LET S=SIN THETA 

6600 FOR I=1 TO Ni 

6610 LET XxX=S5(1)3*C2 LET YY=T(1):5 
LET Z22=8(1)*S 

6620 LET XCI+N1)=XXXR (1, 1) AV VAR 
1, 2) +ZZXAR(1,3)+R(1,4) 

6630 LET Y (I+N1)=XXXAR (2, 1) +YYxAR E 
Da 2) FA ZZAR (DIARIA, 4) 

6640 NEXT 1 

6648 REM Toma el triangulo en se 
ntido antihorario de cada cara e 
ntre los 2 

6649 REM juegos. Si mantiene la 
orientacion al proyectarlo es vi 
sible 

6650 FOR I=1 TO NUMV 

6660 LET Fi=li¿ LET Fe=l+1p LET OF 
J=F2+N1 

6670 IF I=NUMV THEN  LET Fi=F3-1 
6680 LET DX1=X(F2)-X(F1)31 LET DY 
1=Y(F2)-Y(F1) 

6690 LET DX2=XxX(F3)-X(F2)1 LET DY 
DY (FZ)Y(F2) 

6700 IF DXi*DY2-DX2XDY1%0 THEN 
GO TO 6770 

6710 LET F3=F2+N14 LET F4=F3-1 
6720 LET XFT=X(F1)12 LET YFT=Y(F1 
3): 60 SUE moveto 

670 LET XPT=X (FR) LET OYFT=Y (2 


)2 60 SUB lineto 
6740 LET XEFT=X(F3)2 LET YFT=Y(F3 
Ó 1 )3 60 SUB lineto ES 
| 6730 LET XFT=X(F4): LET YFT=Y(F4 : 
( 3 60 SUB lineto 
O; 6760 LET XPT=X(F1): LET YFT=Y(F1 ¡ O 
' )2 60 SUB lineto 
o! 6770 NEXT 1 Re 
6779 REM Copia el segundo juego MEN 
en el primero y repite el proces | | 
$ al O 
6780 FOR I=1 TO Ni : 
' 6790 LET X(1)=X(I+N1)2 LET Y(D= | 
O Y (I+N1) Na 
: 6800 NEXT 1 E 
£810 NEXT J 
O 6820 RETURN O 
ANP | ) 


Figura 10.2 


Ejercicio 10.3 - 
Experimente con esta técnica. Partiendo de un conjunto cualquiera de líneas inicial- 


mente, se puede originar una figura de este tipo, siempre que el resultado de la 
rotación alrededor de un eje vertical sea un polígono convexo. 
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Dibujo de una superficie tridimensional especial 


Hasta este momento nos hemos limitado a dibujos de cuerpos convexos; vamos 
a observar ahora el desarrollo de un tipo de figura no convexa que puede dibujarse 
sencillamente, debido a la información almacenada sobre su forma particular. Con- 
sideremos la construcción de un tipo restringido de superficies tridimensionales en las 
cuales la coordenada y de cada punto viene dada por una función de x y z, que 
llamaremos función “f”; la función “f” se almacenará como subrutina del programa; 
en el listado 10.4 presentamos un ejemplo de este tipo donde la función es y = 4 x SIN 
(XZ)/XZ donde XZ = V(x? + 2?). El resultado obtenido se muestra en la figura 10.3. 
Los datos necesarios son HORIZ = 32, VERT = 22, (EX, EY, EZ) = (3, 2, 1), (DX, 
DY, DZ) = (0,0,0), NX = NZ = 16, XD = ZD = —10 y XT = ZT = 10. 


Listado 10.4 
Í ET ] 7 
E) 6000 REM escena3/superficie mata O 
6010 DIM A(4,4): DIM B(4,4): DIM 
R(4, 4) 
6020 LET surface=6500: LET drawl O 
in=7000: LET f=7200 ] 
¡e £0730 GO SUB idR3w GO SUB look3 : 
(9 6040 GO SUB surface (E 
6050 RETURN 
> 6500 REM superficie O 


6501 REM Datos de entrada R(4,4) 
6310 DIM D(256) 
O 6520 INFUT "NX, XMIN, XMAX "3NX3", Ma 
"3XMIN3", "3XMAx 
] 6330 INFUT "NZ,ZMIN,ZMAX "3NZ3", : 
O "SZMIN3","3ZMAX O 
6540 LET XDIF=(XMAX-XMINM)/NX 
e 6300 LET ZDIF=(ZMAX-ZMIN)/NZ 
+ 6559 REM Dibuja el juego no. 0 d E, 
| e lineas de coordenada X fija 
6360 LET XX=XMAX: LET ZZ=ZMINM: 6 


O | 
O SUB f me 
6570 LET XA=XX*R(1,1)+YYxXR(1,2)+ 
O ZZXR (1,3) +R(1,4) | 
6580 LET YA=XXx*XR(2, 1) +YYxXR(2,2)+ ¡O 
ZZAR (2, ZARZA) 
O 6590 FOR J=1 TO NZ O 


6600 LET ZZ=ZZ+ZDIF: GO SUE + E 
6610 LET XB=XX*R (1, 1)+YY*R(1,2)+ 
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O 


O 


O 


ZZ2XAR(1,3)+R(1,4) 

6620 LET YB=XX*R(2, 1) +VYXAR(Z, 2) c+ 
ZZIAR (OZ, 2) AR OZ, 4) 

6630 GO SUBE drawlin 

6640 LET XA=XB: LET YA=YE 

6650 NEXT J 

6659 REM Dibuja el juego O de li 
neas de coordenada Z fija 

6660 FOR J=1 TO NX 

6670 LET XX=XX-XDIF: GO SUBE + 

6680 LET XB=XX*R(1,1)+YY*R(1,23)+ 
ZZ1XR(1,3)+R(1,4) 

6690 LET YE=XXXR (2, 1) +VYAR(Z, 2) + 
ZZARACZ, DAR (Z, 4) 

6700 GO SUE drawlin 

6710 LET XA=XB: LET YA=YE 

6720 NEXT J 

6729 REM Varia los valores X en 
incrementos NX 

6730 LET XS=XMAX 

6740 FOR I=1 TO NX 

6748 REM Dibuja las partes visib 
les de cada linea de coordenada 
Z fija: 

6749 REM los valores X varian de 
la linea X (I-1) a la (1) 

6730 LET ZS=ZMAX 

6760 FOR J=1 TO NZ 

6770 LET ZS=ZS-ZDIF. 

6780 LET XX=XS2 LET ZZ=ZS8 GO SU 

BE + 

6770 LET XA=XX*R (1, 1)+YYAR(1,2)+ 
ZZXR(1,3)4R(1,4) 

6800 LET YA=XXAR (2, 1) +YYARCZ, 2) + 
ZAR AR, A ROR, 4) 

6810 LET XX=XS-XDIF: GO SUB 4 

6820 LET XB=XX*R(1, 1)+YYxR(1,2)+ 
ZZAR (1, IAF RC1, 4) 

680 LET YE=XX*AR (2, 1) +YYARCZ, 2) + 
ZIRE DARE, 4) 

6340 60 SUE drawlin 

6830 NEXT J 

6839 REM Dibuja las partes visib 
les de las lineas de coordenada 
X fija 


Se 
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6860 LET ZZ=ZMIN: GO SUB f 

6870 LET XA=XX*R (1, 1)+VY*R(1,2)+ 
ZZAR(1,3)+R (1,4) 

6880 LET YA=XX*R(Z, 1) +YYxR(2,2)+ 
ZZAR (2, 3Z)+RUZ, 4) 

6890 FOR J=1 TO NZ Ñ 
6900 LET ZZ=ZZ+ZDIF: GO SUB +4 
6910 LET XE=XX*R(1, 1)+YYx*R(1,2)+ 
ZZ4R(1,3)+R (1,4) 

6920 LET YB=XX*R(2, 1) +VY*R(2,2)+ 
ZZIRR(Z, ZI+HRUZ, 4) 

6930 GD SUE drawlin 

6940 LET XA=XBz LET YA=YB 

6950 NEXT J 

6960 LET XS=XS-XDIF 

6970 NEXT 1 

4980 RETURN 


7000 REM dibujalineas/ dibuja 11 
néas entre puntos 

7001 REM Datos de entrada XA, YA, 
XE, YB1D(236) 

7008 REM Fartes visibles de la 1 
inea entre (XA, YA) y (XE,YE) 
7009 REM 14 e 1B son las posicio 
nes X del elemento de pantalla d 
e los 2 puntos 

7010 LET IA=FN X(X0)1 LET IB=FN 
X (XE%) 

7020 LET Y=YA: LET YD=0 

7030 IF TIAZ2:IB THEN G0 TO 7080 
7039 REM Si 1IA=IB dibuja la line 
a ssolo si el segundo punto esta 
sobre el primero 

7040 FLOT IA,DCIA) 

7030 LET IY=FN Y(YE) 

7060 TF IY3DCIA) THEN  DRAW 0, 1Y 
-D(TA): LET D(TA)=1IY 

7070 RETURN 

7079 REM Varia la columna del el 
emento de pantalla de izquierda 
a derecha 

7080 LET YD=(YE-YA)/C1IE-1A) 

7090 FOR KE=IA TO TE 

7100 LET IY=FN Y (Y) 


O 


a 


7109 REM Si el elemento de panta | 
lla y es mayor que D, pone a cer 
o D 
7110 1F D(F)<IY THEN LET D(k)=I 
Y | 
O 7120 LET Y=Y+YD | 
7130 NEXT KE í 
O : 7139 REM Une todos los puntos (1 ' 
¿D(13)35 donde 1Az=IX=IB 
7140 FLOT TIA,DCIA) 
O 7130 FOR K=1A+1 TO IB 
7160 DRAW 1,D(K)-D(k-1) / 
1 
| 
| 
| 
I 
| 
| 
| 
/ 
| 
| 
| 
| 
| 
| 
| 
| 
| 


7170 NEXT KE 
O 7180 RETURN 


7200 REM £/funcion a dibujar 
7201 REM Datos de entrada XX,ZZ 

7202 REM Datos de salida YY . 
210 LET YY=43 LET XZ=B0R (XX*XX 

+22*Z7) 

7220 1F XZ>0,000001 THEN  LET YY 
=4AXSIN (XZ)/XZ 

TEO RETURN 


hoi 


2 


Figura 10.3 
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Al ser imposible dibujar cada punto de la superficie, nos aproximaremos con- 
siderando un subconjunto de dichos puntos. Escogeremos aquéllos cuya coordenada 
x/z se sitúe en una cuadrícula; dicho de otro modo, si proyectamos ortogonalmente 
el dibujo mirándolo desde arriba, esto es, ignorando los valores y, los puntos for- 
marán una rejilla rectangular. Esta rejilla está compuesta por NX por NZ rectángulos 
en el plano x/z. Las coordenadas x de los vértices están equiespaciadas y varían 
entre XB y XT (XB < XT) y las coordenadas z, igualmente equiespaciadas, varían 
entre ZB y ZT (ZB < ZT). Habrá, por tanto (NX + 1) x (NZ + 1) vértices (X, Z) en 
la cuadrícula, identificables por una pareja de enteros (i, j) 


X =XT+i(XB-XTyNX 0<i 
Z=ZT+j¡(ZB-ZT/NZ 0sj 


Xx 


< N 
< NZ 

El punto equivalente sobre la superficie es (X, Y, Z) donde Y = AX,Z). Cada uno 
de los (NX + 1) x (NZ + 1) puntos generados de esta forma se une a sus cuatro 
vecinos inmediatos en la rejilla (es decir, aquellos con el mismo valor de x o 2), 
a menos que se sitúe en el borde, en cuyo caso se une a tres, o, en el caso de las 
esquinas, únicamente a dos vecinos. Consideraremos que la cuadrícula está formada 
por NX + 1 conjuntos de segmentos diferentes, cada uno de ellos con un determinado 
valor de x, y los correspondientes NZ + 1 conjuntos de segmentos con z fija. Por 
ejemplo, el conjunto l-ésimo de x fija (0 < 1 < NX) está compuesto de NZ segmentos 
que unen pares de puntos equivalentes a los puntos de la cuadrícula (1, J), (L, J + 1), 
donde 0 < J < NZ — 1. 

La superficie puede estar ondulada, de manera que no será visible toda la cuadrícula 
desde un determinado ángulo de visión. Explicaremos un método muy simple para 
eliminar las líneas ocultas de casos como éste, comenzando el dibujo desde la parte 
anterior de la figura. 

Para simplificar el algoritmo, supondremos que el ojo está colocado siempre en 
el cuadrante positivo (es decir, EX > 0 y EZ > 0), y que además está mirando al origen 
(DX = DY = DZ = 0). En el caso de que la función no sea simétrica, y deseemos 
observarla desde otro ángulo, simplemente deberemos cambiar el signo de x y/o z 
en la función. Transformaremos a continuación la superficie a su posición OB- 
SERVADA. 

En esta posición, en primer lugar proyectamos ortogonalmente el borde frontal, 
o sea, las dos líneas de la cuadrícula correspondientes a x = XT y z = ZT. Esta ope- 
ración es equivalente a dibujar el primer conjunto de segmentos de x fija y el primer 
conjunto de z fija (los conjuntos número cero). A continuación nos movemos desde 
la parte delantera hacia atrás en etapas NX. Para realizar la etapa I-ésima (1 < 1 < NX), 
dibujamos en primer lugar las partes visibles de uno de los segmentos de cada uno 
de los NZ conjuntos de z fija. A su vez, el J-ésimo segmento de los anteriores 
(1 <J < NZ) unirá los puntos equivalentes a los puntos de cuadrícula (1 — 1,J) 
e (I, J). Es decir, unimos los puntos correspondientes al segmento (1 — 1) de x fija 
con los del segmento 1, comenzando en la línea cero de z fija y trabajando desde 
delante a atrás. A continuación dibujamos las partes visibles del conjunto I-ésimo 
de segmentos de x fija. Toda esta operación está programada en la subrutina “super- 
ficie” (surface). 


Aún no hemos explicado cómo distinguir cuáles son las partes visibles de las 
líneas: subrutina “dibujalineas” (drawlin). Definimos un vector D de 256 posiciones, 
una para cada columna de pixels en la pantalla. Dibujamos en primer lugar los 
conjuntos cero de x y z fijas, e introducimos los valores equivalentes al pixel de los 
puntos de dichas líneas en el vector D. Calculamos a continuación los valores fila/ 
columna de cada pixel para un segmento determinado, y lo dibujamos si y sólo si 
el valor de la fila para una determinada columna es mayor que el valor que en ese 
momento se encuentra almacenado'en D. En ese caso, el nuevo valor del pixel se 
introduce en la posición correspondiente del vector D, y se continúa el proceso. 
Este método nos proporciona un algoritmo de eliminación de líneas ocultas para 
superficies matemáticas basado en el orden en el cual trazamos dichas líneas. El 
algoritmo está restringido al cuadrante positivo y a figuras que no excedan el tamaño 
de la pantalla gráfica; si cambiamos de cuadrante o ampliamos excesivamente la 
escala incurriremos en errores. 


Ejercicio 10.4 


Cambie las funciones “f” utilizadas en este programa. Por ejemplo, use f= 4 x 
x SIN(t) donde : = Y(x? + 27). 


Ejercicio 10.5 


El programa anterior no dibuja la parte inferior de la figura, que aparecería por 
debajo de las líneas cero de x/z si su valor fuese lo suficientemente pequeño. Mo- 
difique el listado 10.4 para permitir que un valor pequeño y/o negativo de la función 
“asome” por la parte inferior del dibujo. Defina otro vector E(256), que inicialmente 
contendrá la información sobre el borde más próximo, y, si se da el caso de que 
algún punto está por debajo de los considerados como bordes, se dibujen alterando 
el correspondiente valor en el vector E. ¿Podría utilizarse el mismo procedimiento 
para dibujar las líneas? 


Programas completos 


L  “rut3” y listado 10.1. Datos requeridos: las coordenadas de los vértices de un 
triángulo (X(D), Y(M), Z(D)), donde 1 < I < 3. Pruebe con los valores (1, O, 1), (1, 1, 0) 
y (0, 1,1): introduzca a continuación los mismos vértices en orden diferente: 
(1, 1,0), (1,0, 1) y (0, 1, 1). 

1.  “rutl”, “rut3” y los listados 9.3, “escena3” (scene3) y 10.2 “cubo” (cube). Datos 
necesarios: HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ). Intente con 9, 6, (1, 2, 3), 
(0, 0, —1). 
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TI. 


¡NA 


“rut1”, “rut3” y los listados 9.10 “escena3” (scene3) y 10.3 “cuerpo de revolución” 
(revbod). Datos necesarios: HORIZ, VERT, NUMH, NUMV (< 15), PHI, (EX, 
EY, EZ), (DZ, DY, DZ). Intente 3.2, 2.2, 10, 10, 1, (1, 2, 3), (0, 0, — 1). 

“rutl”, “rut3” y el listado 10.4: “escena3”, “superficie” “dibujalineas” y “f” 
(scene3, surface, drawlin y f). Datos necesarios: HORIZ, VERT, (EX, EY, EZ), 
(DX, DY, DZ), NX, XB, XT, NZ, ZB, ZT. Pruebe los valores 38, 20, (1, 2, 3), (0, O, 0), 
16, —18,8,16, —8, 8. 
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11 
Proyecciones en perspectiva 


Como hemos visto, la proyección ortogonal posee la propiedad de que líneas que 
eran paralelas en el espacio tridimensional se proyectan como líneas paralelas en el 
plano de visión. Aunque resulta muy útil, ciertamente esta proyección se nos antoja 
algo extraña: nuestro cerebro utiliza el fenómeno de la perspectiva del espacio tri- 
dimensional, y por ello intenta interpretar las figuras ortogonales como si se hubiesen 
realizado en perspectiva. Por ejemplo, los cubos de las figuras 9.1 y 10.1 aparecen 
distorsionados.. 

Resulta esencial, por tanto, producir una proyección que muestre fenómenos de 
perspectiva (es decir, que permita que las líneas paralelas se unan en el horizonte); 
de este modo, la parte más alejada de un objeto deberá verse de menor tamaño 
que la parte más cercana al observador. Por desgracia, no podremos echar mano de 
los métodos de dibujo descubiertos y utilizados por los artistas desde hace siglos; 
por el contrario, la geometría cartesiana en tres dimensiones y el concepto, ya in- 
troducido, de posición ACTUAL y OBSERVADA, nos permitirán encontrar una 
técnica bastante directa para cumplir este requisito. 


Concepto de visión en perspectiva 


Adquiriremos una idea más clara de este concepto si lo dividimos en dos partes: 
en primer lugar veremos una definición muy simple de lo que entendemos por visión. 
Imaginemos que cada punto visible del espacio envía un rayo de luz hasta el ojo. 
Naturalmente, el ojo no «puede ver todo el espacio, sino que está limitado al cono 
de rayos que se proyecta sobre la retina, llamado cono de visión. En la figura 11.1 
se muestra el cono de visión marcado con líneas de puntos. El eje de dicho cono 
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se denomina rayo frontal. Si imaginamos que el espacio se ha transformado en la 
posición OBSERVADA, con el eje situado en el origen, tendremos el rayo frontal 
colocado en el eje z positivo. 


Figura 11.1 


Situaremos el plano de visión (aquí llamado plano de perspectiva) perpendicular 
al eje del cono de visión, y situado a una distancia D del ojo. Para producir la 
proyección en perspectiva, marcamos los puntos de intersección de cada rayo con 
dicho plano. Por supuesto hay infinitos rayos, y esta tarea parece imposible: en 
realidad el problema no es tan grande, ya que consideramos únicamente aquellos rayos 
que proceden de partes importantes de la figura; en concreto, los vértices y puntos 
finales de segmentos. El dibujo final será el resultado de unir estos puntos proyec- 
tados de la misma manera como estaban relacionados en el espacio tridimensional, 
y a continuación asociar el plano de perspectiva con la pantalla gráfica del or- 
denador. 

En la figura 11.1 se muestra un cubo observado por un ojo y proyectado sobre 
dos planos, uno anterior y otro posterior; la escena completa, además, está dibujada 
en perspectiva. Con línea continua se han marcado dos rayos como ejemplo: el 
primero parte del ojo hasta A, uno de los vértices de la cara más proxima del cubo 
(con respecto al ojo), y el segundo a B, uno de los vértices de la cara posterior. 
Las proyecciones en perspectiva de estos puntos en el plano cercano al ojo son A' 
y B', mientras que en el otro plano son A” y B”. Obsérvese que ambas proyec- 
ciones tienen la misma forma y orientación, difiriendo únicamente en tamaño. 
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Cálculo de la proyección en perspectiva de un punto 


Supongamos que el plano de perspectiva se sitúa a una distancia d del ojo (la 
variable PPD en programas posteriores). Considérese un punto P = (x, y, z) en el 
espacio que envía un rayo hacia el ojo. Debemos calcular el punto en que dicho 
rayo corta al plano de visión (el plano z = d); supongamos que dicho punto es 
P' = (x'”, y”, d). Calcularemos en primer lugar el valor de y” refiriéndonos a la fi- 
gura 11.2. Por triángulos semejantes se puede demostrar que y'/d = y/z, es decir, 
y' = y x d/z. De la misma forma, x” = x x d/z. Por tanto, P' = (x x d/z, y x d/z, d). 
Cuando asociamos el plano de visión con el sistema de coordenadas x/y de la pan- 
talla gráfica, podemos despreciar la coordenada z = d. 


Figura 11.9 


Ejemplo 11.1 


Calcúlese la proyección en perspectiva de un cubo con ocho vértices (0, 0, 4) + 
+ (+1, +1, +1) en el plano de perspectiva z = 4, situando el ojo en el origen y el 
rayo frontal en el eje z positivo. 

El espacio está definido de manera que la escena está colocada en posición 
OBSERVADA. Podemos calcular las proyecciones de los ocho vértices utilizando el 
método anterior. Por ejemplo, el punto (1, 1, 3) se proyecta en (1 x 4/3,1 x 4/3, 4) = 
= (4/3, 4/3, 4) > (4/3, 4/3) en la pantalla. De la misma forma obtenemos las ocho 
proyecciones 


(1,1,3) > (4/3, 4/3) (1, —1,3) > (4/3, —4/3) 
(—1, 1, 3) > (-4/3, 4/3) (—1, —1,3) > (-4/3, -4/3) 
(111,5 => (4/5, 4/5) (1, —1,5) => (4/5, —4/5) 
(—1, 1,5) > (4/5, 4/5) (—1, —1,5) > (-4/5, —4/5) 


resultando el diagrama que se muestra en la figura 11.3a. 
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a) b) 


Figura 11.3 


Propiedades de la transformación en perspectiva 


1) 


2) 


La transformación en perspectiva de una línea recta, por ejemplo I'3, es una 
línea recta, por ejemplo Il”. Esto es obvio debido a que el origen (el ojo) y la línea 
Pz forman un plano (que llamaremos (2) en el espacio tridimensional, y todos 
los rayos que se emiten desde puntos de Í'¿ pertenecen a dicho plano. (Si la recta 
penetra en el ojo, Q degenera en una línea). Evidentemente, Q corta al plano de 
perspectiva en una línea > (o degenera en un punto) de manera que la proyec- 
ción en perspectiva de un punto de la línea original Pz debe pertenecer ahora 
a la nueva línea ,. Es importante observar que una línea recta no se curva en 
una proyección en perspectiva. 


La transformación en perspectiva de una cara (secuencia cerrada de segmentos 
rectilíneos coplanares) es una cara en el plano de perspectiva. Si la cara es un 
área rodeada por n segmentos coplanares, su transformada es otra área en el 
plano z = d rodeada por las transformadas de los n segmentos. Insistimos de 
nuevo que no aparecen curvas en esta proyección: si así fuera, la tarea de realizar 
dibujos en perspectiva sería bastante más complicada. 


La proyección de una cara convexa es también convexa. Supongamos que la 
proyección de la cara F, es la cara F). Al ser la proyección de una cara cerrada 
también cerrada, y las rectas rectas también, los puntos que pertenecían a F,, 
estarán ahora contenidos en F>. Supongamos que F) no fuera convexa: existirían 
entonces dos puntos p, y pz dentro de F, tales que una recta que los uniera 
no pertenecería en su totalidad a la cara. De ahí se deduce que hay al menos 
un punto p de la recta en el exterior de F,. Si p, y p2 son proyecciones de 
los puntos q, y q2 de F,, p será la proyección de un punto q del segmento que 
une q: y 92. Al ser F, convexo, q deberá pertenecer a F,, y por consiguiente 
p deberá estar incluido en F,: ha aparecido una contradicción, por lo que nuestra 
hipótesis queda demostrada. 
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4) 


S) 


Cualquier número de líneas paralelas infinitas parecen unirse en un punto, llamado 
punto de fuga. Si tomamos una línea cualquiera (con vector de base p) de un 
conjunto de líneas paralelas con vector de dirección h 


Pp + uh = (co, Yp> Zp) E H(X5, Yh> Zn) 


donde z, > 0; por tanto, la transformación en perspectiva de un punto cualquiera 
de la línea será 


E + uxa) Xx d (y, + yn) x 1) 
(2, + 1Z») : (z, E 1Z») 


que se puede reescribir como 


(E + Xp/p) xd (ys + Yp/1) * al 
(2, + Zp/H) 3 (2, + Zp/11) 


Según nos movemos hacia coordenadas z mayores (es decir, según u tiende a in- 
finito), la línea se mueve hacia el punto de fuga, el cual viene dado por (d x 
X Xp/Zh d X y/Zn). Este punto de fuga es independiente de p, vector de base 
de la recta, y por tanto todas las líneas paralelas en la dirección h convergerán 
en el mismo punto. Por supuesto, despreciamos el caso z, < 0, porque la línea 
desaparecería fuera del cono de visión al tender u > 00. 


Los puntos de fuga de todas las líneas colocadas en planos paralelos son coli- 
neales. Supóngase que tenemos un conjunto de planos paralelos con una normal 
MN = (Xm» Jn Zn). Si una línea cualquiera de uno de estos planos tiene la dirección 
h = (Xp, Y) 2), entonces h será perpendicular a n (todas las líneas situadas en un 
plano son perpendiculares a su normal). Por consiguiente el producto escalar n-h = 
= 0), que expresado en forma de coordenadas es 

Xan X Xh + YnX Yna+ZnXxZzn=0 
dividiendo por z, obtenemos 

Xp X Xn/Zh + Yn *X Yn/Zn + Zn = 0 
y el punto en cuestión (d x xy/Z, d X y/z,) se sitúa sobre la recta 

Xan XX+YInxy+dxz, =0 


como se quería demostrar. 
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Ejemplo 11.2 


Encuéntrense los puntos de fuga de los lados del cubo del ejemplo 11.1, y los de 
las diagonales de sus caras superior e inferior. 

Dividimos las doce aristas del cubo en tres conjuntos de cuatro aristas, paralelos 
respectivamente a los ejes x, y y z, y por tanto con vectores de dirección (1, 0, 0), 
(0, 1,0) y (0,0, 1). Los dos primeros conjuntos tienen un valor z cero, y por tanto 
sus prolongaciones escapan del cono de visión y serán ignoradas. La tercera direc- 
ción presenta un punto de fuga (4 x 0/1,4 x 0/1) = (0, 0) en el plano de visión. Las 
diagonales de las caras superior e inferior tienen direcciones (1,0, 1) y (—1,0, 1) res- 
pectivamente la diagonal mayor y la diagonal menor. La diagonal mayor del plano 
superior es (—1,1,3) + (1,0, 1), y su punto de fuga será (4 x 1/1,4 x 0/1) = (4, 0). 
La diagonal menor del plano superior es (1,1,3) + 4 (—1,0,1) y su punto corres- 
pondiente será (4 x —1/1,4 x 0/1) = (—4, 0). Un cálculo semejante nos conduce a 
situar los puntos de fuga de las diagonales mayor y menor de la cara inferior tam- 
bién en (4,0) y (—4,0) respectivamente. En la figura 11.3b hemos prolongado las 
aristas calculadas hasta sus puntos de fuga. Obsérvese que todas las líneas mencionadas 
se sitúan en dos planos paralelos (las caras superior e inferior del cubo) y por tanto 
los puntos de fuga son colineales: comprobamos fácilmente que (4, 0), (0, 0) y (—4, 0) 
pertenecen todos ellos al eje x, estando obviamente en línea recta. De igual forma 
se puede demostrar que los puntos de fuga de las diagonales de las caras laterales 
se sitúan en una línea vertical que pasa por el origen. 


Ejercicio 11.1 


Dibuje una visión en perspectiva de un tetraedro con vértices (1, 1, 5), (1, —1, 3), 
(-1,1,3) y (— 1, —1,5). Búsquense los puntos de fuga (dentro del cono de visión) 
de las rectas que unén pares de puntos medios de las aristas del tetraedro. 


Programación de la transformación en perspectiva 


El programa principal para dibujos en perspectiva de cualquier tipo de escena es 
el mismo que el utilizado en proyección ortogonal, es decir, el listado 9.2. Al igual 
que antes, la escena global se crea por una llamada a una subrutina “escena3” se- 
mejante a las mostradas en el capítulo 9. A menudo tendremos que calcular explícita- 
mente la matriz de paso ACTUAL a OBSERVADA, de tal forma que el ojo esté en 
posición OBSERVADA en el origen mirando hacia el eje z positivo. Esta misión 
está asignada a la subrutina “observación3” dada en el capitulo 9 (listado 9.1). Se 
realizan llamadas a subrutinas de construcción, teniendo cada una una matriz R como 
parámetro. Finalmente dibujamos la figura dentro de la propia subrutina de cons- 
trucción o utilizando una subrutina “dibujo”. 

La única diferencia entre el programa que dibuja en perspectiva y el programa 
del capítulo 9 (proyección ortogonal), está en el cálculo de las coordenadas de la 
imagen proyectada en el plano de visión. A diferencia del caso ortogonal, en la 
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proyección en perspectiva las coordenadas del plano de visión no pueden identificarse 
con los valores x e y del punto en posición OBSERVADA. Debemos almacenar 
la transformación de perspectiva de los vértices en los vectores V y W: el vértice 
T-ésimo (X(D), Y(D), Z(D)) en posición OBSERVADA se proyecta a (V(I), W(I)). Los 
valores de los vectores V y W vienen dados por 


VD) = X()*PPD/Z() y WM) = Y(M*PPD/Z() paral =1,2,.., NOV 


aquí se le asigna a PPD el valor 3*VERT, por las razones que veremos en la si- 
guiente sección. El cálculo de V y W se puede realizar en la subrutina de cons- 
trucción, en “escena3” o en la subrutina “dibujo”; la elección depende simplemente 
de la figura que se esté considerando. 


Ejemplo 11.3 


Dibuje una escena fija (los dos cubos descritos en el ejemplo 9.2 en perspectiva 
desde distintos puntos de observación, haciendo HORIZ = 9 y VERT = 6. Los su- 
brutina “escena3” que se necesita viene dada en el listado 11.1; obsérvese que esta 
subrutina calcula PPD (compárese con el listado 9.6). El listado sitúa al grupo de 
cubos en su posición actual utilizando la subrutina “cubo” del listado 9.7, y a con- 
tinuación realiza un bucle con diferentes posiciones de OBSERVADOR. Para cada 
nueva posición se llama a “observación3”, que necesita los datos (EX, EY, EZ) y 
(DX, DY, DZ) para calcular la matriz de paso ACTUAL a OBSERVADOR. A con- 
tinuación se llama a la subrutina “dibujo” en perspectiva (listado 11.2). Dicha sub- 
rutina utiliza la matriz para transformar los vértices desde su posición ACTUAL 
(almacenada) a la posición OBSERVADA y sitúa las coordenadas de los vértices 
proyectados en los vectores V y W, de acuerdo con las ecuaciones anteriores. Final- 
mente, la subrutina dibuja las aristas de los cubos en perspectiva. 

La figura 11.4 ha sido realizada utilizando (EX, EY, EZ) = (15, 10, 5) y (DX, DY, 
DZ) = (0, 0, 0). Compárese esta figura con la proyección ortogonal de la misma es- 
cena presentada en la figura 9.2. 


Listado 11.1 
6000 REM escenad/figura 9.2 (vari Y | 
as vistas) 
DN 6010 DIM X(16):3 DIM Y(16): DIM 2 O 
| (16) 
6020 DIM V(16): DIM W(16): DIM L 
dr] (2,24) Me 
6030 DIM A(4,4): DIM E(4,4): DIM | 
R(4,4) | 
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Listado 11.2 
| 
| 


0 


de 


6040 LET cube=6300: LET drawit=7 
000 

06050 LET FED==*VERT+ LET NOV=0s 
LET NOL=0 

6059 REM Situa dos cubos en la p 
osicion ACTUAL . 
6060 60 SUR idRi 

6070 60 SUBE cube 

6080 LET TxX=Z LET TY=1,581 LET T 
Z=2% 0 SUB trans 60 SUB multa 
6090 60 SUB cube 

6099 REM Bucle de varias vistas 
6100 60 SUB ¡dR3ws 60 SUB look 
6110 CLS : GO SUE drawit 

6120 60 TO 6100 

6130 RETURN 


7000 REM dibujo/perspectiva 

7001 REM Datos de entrada FFD, NO 
V y NOL., XCNOV) y, YONOV) , ZONOW) ¿L. (2, N 
OL),R(4,4) 

7009 REM Situa los vertices en 1 
a posicion observada 

7010 FOR I=1 TO NOV 

7TOZO LET XX=X(1)*XR(1, 1)+Y (1)xR (1 
a 23 AZ (CID AR(1,3)+R(1,4) 

TOZO LET YY=XC(IIXARCZ, 1)+Y(I)ARCZ 
y 2) AZ CID AR OR, ARE, 4) 

7040 LET Z2Z2=X(IDIXRCZ, 1) + Y CIIXARCOZ 
y 2 ZCIDIAREO, 3) ARCO, 4) 

7049 REM Froyeccion en perspecti 
va 

7050 LET V(I)=XX*FFD/ZZ 

7060 LET W(1)=YY*FFD/ZZ 

7070 NEXT 1 

7079 REM Dibuja las lineas 

7080 FOR I=1 TO NOL. 

7090 LET Li=L (1,1) LET L2=L (2, I 
) 

7100 LET XFT=V (Lidia LET YFT=WwC(L1 


3): 60 SUBE moveto 

) 7110 LET XFT=VW(L2)2 LET YFT=W(L2 O 
32 G0 SUB lineto 
7120 NEXT 1 
7130 RETURN 


Figura 11.4 


Ejercicio 11.2 


Dibuje varias perspectivas de un “esqueleto” de tetraedro y de pirámide. 


Elección del plano de perspectiva 


El único valor que se necesita para la transformación en perspectiva, que todavía 
no hemos estudiado, es PPD, la distancia del plano de perspectiva al ojo. Si obser- 
vamos la figura 11.1, se advierte que un valor diferente de PPD produce el mismo 
dibujo aunque de diferente tamaño. ¿Cuál escogemos? ¿Existe un valor correcto? 

Si consideramos una situación práctica, en la que el observador está situado 
enfrente de la pantalla de televisión y el plano de perspectiva se identifica con el 
plano de la pantalla, podemos utilizar una regla empírica, según la cual el observador 
se sitúa a una distancia que es aproximadamente tres veces la altura de la pantalla. 
Traduciendo esta distancia a pixels, resulta una distancia 3*VERT (valor utilizado 
anteriormente). Si utilizamos valores mayores de PPD estamos ampliando la imagen, 
mientras que si PPD es menor que 3*VERT damos una impresión de lejanía. 
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Recorte 


En principio, los objetos pueden estar colocados en cualquier lugar del espacio, 
incluso detrás del ojo, aunque en nuestro caso se consideran tan sólo aquellas coor- 
denadas z positivas en la posición OBSERVADA. Aun así, bastantes puntos estarán 
fuera del cono de visión, y por tanto fuera de la pantalla. De hecho, incluso una 
parte del cono de visión está fuera de la pantalla (después de todo, podemos ver 
la parte exterior del área gráfica). Así pues, deberemos seleccionar un subconjunto 
del cono de visión que llamaremos pirámide de visión. Todos los puntos que caigan 
fuera de esta pirámide (es decir, aquellos cuya perspectiva los transforman en puntos 
fuera de la pantalla) deben ser ignorados. Ya anotamos que el Spectrum presenta 
un mensaje de error si se intenta dibujar una línea a un punto situado fuera del 
área gráfica. Por consiguiente es esencial que utilicemos la versión “recorte” de la 
subrutina “trazalínea” (listado 3.3) con el fin de evitar problemas. De hecho, limita- 
remos aún más las escenas, de manera que todos los vértices en posición OBSERVADA 
presenten valores positivos en z; esto es, todos los objetos deberán situarse en la parte 
frontal del ojo (aunque no necesariamente dentro del cono de visión). Así se evita 
que en una proyección en perspectiva particular encontremos puntos situados detrás 
del ojo apareciendo en la pantalla. 


Ejercicio 11.3 


Experimente con proyecciones en perspectiva de todo tipo de figuras de líneas: 
por ejemplo, cuerpos de revolución, poliedros regulares. Considérense casos en los que 
el objeto se dibuja dentro de la propia subrutina de construcción, es decir, aquellos 
en que los valores de V y W deben calcularse ahí y no en la subrutina “dibujo”. 
Modifique el programa que dibuja el reactor de la figura 9.3 para obtenerlo en pers- 
pectiva; observe que conforme el ojo se aleja, el aeroplano se va volviendo más 
pequeño, fenómeno que no se daba en la proyección ortogonal. 


Ejercicio 11.4 


Escriba un algoritmo de líneas ocultas para un cuerpo convexo, similar al pre- 
sentado en el capítulo 10. 

Nótese que al ser la proyección de una cara convexa otro poligono convexo en 
el plano de visión, necesitamos únicamente calcular las coordenadas de los vértices 
de la cara proyectada, y calcular si la cara está situada en sentido antihorario 
(en cuyo caso la dibujaremos) u horario (en cuyo caso se debe ignorar). 


Ejercicio 11.5 


Escriba un programa que dibuje una visión en perspectiva de una superficie ma- 
temática, semejante a la mostrada en el capítulo 10. El método será exactamente 
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equivalente al mostrado en el listado 10.4, con la única excepción de que deberá 
trabajar con los vectores V/W en lugar de los vectores X/Y. 


Estos algoritmos de líneas y superficies ocultas se adecúan perfectamente a objetos 
únicos definidos especialmente, dentro de unas ciertas condiciones. Consideremos 
ahora el caso más general en el que hay varios objetos repartidos en el espacio. 


Programas completos 
I.  “rutl”, “rut3” y los listados 9.4 “cubo” (cube), 11.1 “escena3” (scene3) y 11.2 


“dibujo” (drawit). Datos necesarios: HORIZ, VERT y valores repetidos para 
(EX, EY, EZ) y (DX, DY, DZ). Intente 9, 6 (5, 15, 10) y (0, 0, 0); (1, 2, 20) y (0, O, 1). 
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12 


Un algoritmo de líneas 
ocultas de propósito general 


Como hemos visto en los capítulos anteriores, asumimos que los objetos son 
ubicados por la subrutina “escena3”; debemos recordar ahora que los NOV vértices 
de la escena se almacenan en los vectores X, Y y Z, y sus proyecciones en pers- 
pectiva en el plano de visión, en los vectores V y W. Las NOV caras quedan al- 
macenadas como una lista de índices de vértices (hasta un máximo de seis) en la 
matriz F, y el número de aristas de cada cara, en el vector H. 

Suponemos también que todos los objetos son cerrados. No se requiere que todos 
ellos sean convexos, pero su superficie debe estar compuesta de caras convexas al- 
macenadas en orientación antihoraria. De este modo es imposible ver el otro lado 
de una cara cualquiera; es decir, cuando la figura se proyecta en el plano de visión, 
vemos solamente aquellas caras que mantienen su orientación antihoraria. Estric- 
tamente hablando, esto significa que no podemos dibujar objetos planos. En el caso 
de necesitar alguno en una determinada escena, podemos evitar el problema alma- 
cenando cada cara del objeto plano dos veces: una de ellas en sentido horario y otra 
antihorario; de esta forma, independientemente de la posición del ojo, obtendremos 
una proyección en perspectiva de una y sólo una de estas caras. También asumimos 
que todas las líneas de la escena son aristas de dos caras contiguas: así pues, una 
única línea deberá almacenarse como un polígono degenerado de dos lados. Todas 
estas restricciones vienen aconsejadas con el fin de dar una mayor velocidad al al- 
goritmo de líneas ocultas. La velocidad es un factor realmente limitativo en nuestro 
caso, ya que estamos aproximándonos a los límites del poder de procesado de nuestro 
Spectrum. Incluso un dibujo sencillo, como los dos cubos de la figura 12.1, llevan 
más de cinco minutos de ejecución; la dos estrellas de la figura 12.2 tardan por en- 
cima de los treinta minutos en realizarse. El Spectrum no ha sido diseñado para 
ejecutar algoritmos tan complejos, por lo que es de alabar la labor del equipo de 
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diseño de Sinclair, que ha conseguido que el Spectrum, a pesar de todo, alcance tan 
excelentes resultados. 

En cualquier caso, creemos importante estudiar algoritmos generales de líneas 
ocultas por razones puramente educativas. Pensamos que es esencial para cualquiera 
que posea un interés mayor que un simple pasar el rato, que comprenda los pro- 
blemas subyacentes en el dibujo de objetos tridimensionales con supresión de líneas 
ocultas. La subrutina del listado 12.1 es un algoritmo de líneas ocultas general, que 
puede ser transferido a ordenadores mayores, donde se ejecutará fácilmente. Si usted 
tiene acceso a algún ordenador más potente, sería muy instructivo que intentase ejecutar 
nuestros programas en él. 

Si deseamos producir un dibujo con líneas ocultas de una escena almacenada en 
posición OBSERVADA, deberemos comenzar por comparar cada línea de los objetos 
con cada cara. Debido a las restricciones anteriores, necesitaremos comparar las líneas 
únicamente con las caras visibles; es decir, con aquellas que, al proyectarse, man- 
tienen su orientación antihoraria. 

Supongamos que una línea cualquiera l'z en posición OBSERVADA une los 
puntos (x1',y1",21") y (x2',y2',22), de manera que un punto cualquiera de la 
línea es 


(1 Al p) ars y1",21') + p(x2', ya”, 22) 


A la proyección de los dos puntos terminales de la línea los llamaremos (x,, y,) 
y (x2, y2), situados, obviamente, en el plano de visión en perspectiva. De este modo, 
P3 se proyectará en dicho plano como una línea l', en la que un punto cual- 
quiera será 


(1 — u) (x1, y1) + u(x>, y 2) 


Obsérvese que el punto (1 — H) (x1”, y1”,21) + d(x2”, y2,z2') no se transforma ne- 
cesariamente en el punto (1 — fp) (x,, y1) + Q(x>, y2): es decir, $ no tiene por qué 
ser igual a u. 

Hagamos que una cara cualquiera (23 se proyecte en un área Q, en el plano 
de visión y supongamos que los H vértices de esta cara proyectada son (x;, y;), 
donde 1 < ¡< H. Supongamos que la arista i-ésima de Q), corta a I', en (1 — 4) 
(057 dl El valor de 2, nos indica el lugar de la intersección: si 
1¡<06 2;> 1, entonces IT, intersecta a la arista i-ésima en un punto exterior al 
área Q,; si 0 < 2¡< 1, entonces l', atraviesa el área (2, en un punto de la arista 
i-ésima. Al ser convexa la proyección de una cara convexa, el número de puntos 
de corte será, bien cero (y consecuentemente no hay intersección) o dos (quizá 
coincidentes). Sólo es necesario tener en cuenta el caso de dos puntos no coincidentes: 
llamaremos a sus valores (en D'>) Mmin Y Mmáx dONde Umin < Mmáx- Así pues, los 
puntos de intersección de TP, serán (1 — Mmin) (X1, Y1) + Umin(X2» y) y (1 — max) 
(1, Y1) + Umar X2, Y 2). 
El siguiente paso es decidir si el subsegmento de Il", comprendido entre estos dos 
puntos es visible o no. Esta tarea se realiza encontrando el punto medio del segmento, 


(Xmid» Ymid) = (l — Mimmia) (%1, Y1) + Mmidl%2, Y 2), donde Umia = (min + Hmáy)/2. A con- 


296 


tinuación localizamos el punto (X, y, 2) de Pz cuya proyección en el plano de pers- 
pectiva €s (Xmids Ymid). El segmento de la línea comprendida entre los puntos con va- 
lores Mmín Y Mmix Será oculto si y sólo si (x, y, z) y el ojo están en lados opuestos 
de un plano infinito que contenga a (23. La ecuación del plano se puede calcular 
utilizando los métodos descritos en el capítulo 7, y utilizaremos la representación 
del plano como función para comprobar la condición anterior. 

Obsérvese que X*PPD/z = X mid P*PPD/z = Y mia, y, además (X, Y, 2) se sitúa en 
Pz. Por tanto, para algún valor de $ se cumple que 


x=(1—Q)x1  +0x2, y=(1-—Q)'  +0y2, y 2=(1-— Q)z,' + pz2' 


Así pues, 
(a + d(x2" — x1")*PPD 
Xmid = ; . ; 
21 + Q(22 — 21) 
y 
pa Y + (2 — y PPD 
Bl 21" + Q(z2' — 21) 
es decir, 
6 E Xmid*Z 1" — x¡'*PPD 


(x2 —= xx) *PPD — xmia*(22" — 21”) 


Ymia*Z," — y¡"*PPD 
(ya — y PPD — Ymia*(22" — 21") 


De este modo se puede calcular Q, y por tanto (x, y, z) el cual a su vez se utiliza 
para deducir si el subsegmento I”, es visible o no. 

El algoritmo dado en el listado 12.1 compara cada arista de los objetos con todas 
las caras visibles (antihorarias). Obsérvese que se consideran sólidos todos los objetos, 
es decir, no aparecen caras planas independientes de manera que pueda verse su parte 
posterior (orientación horaria). Las aristas están implícitamente almacenadas en los 
datos de las caras, y cada una de ellas aparece dos veces, una desde el vértice IV1 
al vértice IV2 (por ejemplo) y otra desde el vértice IV2 al FV1. En lugar de duplicar 
el trabajo, consideramos sólo el caso en que IV1 < IV2. Además comparamos las 
líneas únicamente con caras visibles, porque si la línea está tapada por una cara 
oculta (una cara con orientación horaria) la parte invisible de dicha línea debe estar 
tapada asimismo por caras antihorarias. 

Supongamos que estamos comparando la línea Il',, que une los vértices IV1 
e IV2 con la cara K-ésima; hemos calculado NRL subsegmentos visibles de la línea: 
suponemos que NRL es menor de 50. Los valores u de los puntos terminales del 
segmento M-ésimo visible se almacenan en la matriz L como L(1, M) y L(Q, M). 
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Inicialmente NRL = 1,L(1, 1) = 0 y L(2, 1) = 1; es decir, se supone que la línea com- 
pleta es visible. En este momento, si se descubre una parte oculta del segmento, 
especificada por los valores Mmíin Y Mmáx (las variables MIN y MAX), se modifican 
los valores de la matriz L y de NRL de acuerdo con la nueva situación. 

Una vez que la línea ha sido comparada con todas las caras visibles dispondremos 
de NRL segmentos visibles que pueden a continuación dibujarse en pantalla. Si en 
un momento dado NRL se hace cero, significa que la línea está totalmente tapada, 
y no hay necesidad de continuar realizando comparaciones con las demás caras. 


Listado 12.1 


PA AAA e PA 2. 


AE 
em 7000 REM algoritmo general de li O 
| | neas ocultas 
O 7001 REM Datos de entrada NOV, NO O 
lla X (NOV) , Y (NOV), Z (NOV) , VUNOV) ¿WC 
NOV), 
O 7002 REM F(6,NOF),H(NOF),FFD,R(4 ES 
4) | 
7010 DIM L(2,50): DIM G(NOF):2 LE ] 
NN T EFPS=0. 000001 O 
| 7018 REM Comprueba la orientacio 
n de la cara lesima proyectada: 
03 7019 REM Si es antihoraria G(I)= O 
li si es horaria oO degenerada G( 
| 1)=0 
A 7020 FOR I=1 TO NOF O 
7OZO LET Ili=F(1,1)a2 LET Xi=4 (11) 
: LET Yi=W(TI1) 
O; 7040 LET 12=F(2,1)12 LET X2=VY (12) qS: 
| A LET Y2=WC(IZ1 
o. 7050 LET I3=F(3,1)1 LET X3=V(I7) 
| : LET Y3=W(13) E> 
7060 LET DXi=X2-X11 LET DYi=Y2--Y | 
O! 1 | 
7070 LET DX2=X3-X24 LET DY2=Y3-Y O 
EZ | 
Os 7080 LET G(1)=0 o 
7090 IF DX1*DY2-DX2X*DY1:%0 THEN 
LET G(I)=1 
O 700 NEXT 1 e 
7109 REM Encuentra la linea J en : 
los bordes de la cara 1 l 
O 1 7110 FOR I=1 TO NOF LO 
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7120 LET HH=H(1): LET IVi=F (HH, 1 
) 
7130 LET X1i=V(1V1)2 LET Yi=WC(IV1 
) 
7140 FOR J=1 TO HH 
7150 LET 1V2=F (J, 1) 
7160 LET X2=VY(IV2)2 LET Y2=w (IV 
) 
7170 1F 1V1>IV2 THEN GO TO 8160 
7179 REM Inicializa las variable 
s 
7180 LET NRL=18 LET L(1,1)=0: LE 
TL(2,1)=1 
7190 LET CA=X2-X11 LET CR=Y1-Y2 
7200 LET CC=-X1*CB-Y1*CA 
7209 REM Compara esta linea con 
la cara K : 
7210 FOR E=1 TO NOF 
TEZO TF G(EK)=0 THEN GO TO 8040 
7230 1F E=I THEN GO TO 8040 
TICO LET IN=HC(Kk) 
7247 REM Bucle para encontrar do 
sa puntos de interseccion de la 1 
inea proyectada 
7248 REM con la cara proyectada. 
Estos puntos estan especificado 
s por los valores 
7249 REM de MU MIN y MAX 
TEO LET MAX=-1% LET MIN=2 
7260 LET JVi=F (CIN, E) 
7270 LET VxX1=V(JV1)1 LET WYi=WwW(J 
vi) 
7280 LET S1=SGN (CAX*WY 1+CE*VX1+0 
[ep 
7290 FOR M=1 TO IN 
7300 LET JIV2=F (M,kK) 
7310 LET VX2=V(JV2)3 LET WY2=Ww(J 
VEZ) 
7320 LET S2=S6N (CA*XWY2+CE*VX2+0 
Cc) 
7330 1F S1i=52 THEN GO TO 7500 
7340 LET XE=VX1-VX2: LET YE=WY1- 
WY2 
3390 LET XF=YX1-X1i LET YF=WY1-Y 
1 


O 


7360 LET DISC=CA*YE+CEX*XE 

7369 REM Si la linea es paralela 
á la linea en la cara sale del 
bucle de caras 

7370 1F ABS DISC>:EFS THEN  G0 TO 
7440 : 
7380 IF ARS CASEFS THEN GO TO 7 
410 

7390 1F ABS XFXAEFS THEN GO TO 8 
040 

7400 60 TO 7300 

7410 LET LAMBDA=XF/CA 

7420 IF ABS (XF-+LAMEDAXCEIZEFS T 
HEN 60 TO 8040 

7430 60 TO 7300 

7440 LET LAMEDA=(CA*YF+CEX*XF)/DI 
SC 

7449 REM Si la linea no corta la 
cara E comprueba la siguiente c 
ara 

7430 IF LAMEDAZ-EFS THEN GO TO 
7460 1F LAMEDAS1+EFS THEN  GO_TO 

7470 LET MU=(YE*XXF-XEXYE)/DISC 

7479 REM Si hay intersección ver 

dadera renueva MAX y MIN 

7480 1F MAX<MU THEN  LET MAX=MU 

7490 IF: MIN>=MU THEN .LET MIN=MU 

7300 LET S1=52 

7310 LET VX1i=VX23 LET WYli=WY2 

7320 NEXT M 

7329 REM Comprueba si la interse 

ccion esta entre los extremos de 
la linea 

7330 IF MIN>1 THEN GO TO 8040 

7340 IF MAXX20 THEN  G0 TO 8040 

7350 IF MAX>1 THEN  LET MAX:=1 

7360 IF MINZO THEN LET MIN=0 

7370 IF MAX-MINZEFS THEN GO TO 

7377 REM Calcula XMID e YMID 
7380 LET MID=(MAX+MIN)*0,3: LET 

MUD=1i-MID 

7390 LET XMID=MUD*X1+MIDx*X2 

7600 LET YMID=MUD*Y1+MID+*Y2 

7610 LET DENOM=FFD+*«(X (142) -X (IV 1 
))-XMID* (Z(1V2)-Z(1V1)) 


O 


7620 IF ABS DENOMZEFS THEN GO T 

O 7650 

7629 REM Calcula FHI y por tanto 
XHAT, YHAT, y ZHAT 

7620 LET FHI=(XMID*Z (1V1)-FFD*X ( 
141)) /DENOM 

7640 GO TO 7670 

7630 LET DENOM=FFD*(Y (142) -Y(IV1 
))-YMID* (Z (1V2)-Z(1V1)) 

7660 LET PHI=(YMID*Z(1V1)-FED*Y ( 
1V41)) /DENOM 

75670 LET ZHAT=(1-FHI)*2Z (1V1)+FHI 
*Z(IVZ) 

7680 LET FACT=ZHAT/FFD 

7690 LET XHAT=XMID*FACT:* LET YHA 
T=YMID*FACT 

76799 REM Calcula los coeficiente 
s del plano que contiene a la Ca 
rai A,EK,C,D 

7700 LET JVi=F(1,EK)24 LET JV2=F (2 
sE) LET JVI=F (3, E) 

7710 LET DXi=X(JV1)-X(JV2) 

7720 LET DX3=X (IV 3) =X (IV) 

7730 LET DYi=Y (IV 1)-Y(IV2) 

7740 LET DYZ3=Y (IVZ)-Y (IV) 

7730 LET DZ1=Z(IV1)-Z(IV2) 

7760 LET DZZ3=2Z (IV) -Z(JVZ) 

7770 LET A=DY1*DZ3-DY3XDZ1 

7780 LET E=xDZ1x*DX3-DZ2*DX1 

7790 LET C=DX1*DY23-DX3*DY 1 

7800 LET D=A*X (IV 1)+Bx*Y (IV 1)+0x*Z 
(JV1) 

7810 LET S1=A*XHAT+E*YHAT+CxZHAT 
-D 

7819 REM Si la cara tapa parte d 
e la linea cambia la matriz L 
7820 IF ABS SIZ<EFS THEN GO TO 8 
040 

7830 1F ABS (SGN SÍ1+SGN D)<2 THE 
WN GO TO 8040 

7840 LET MORE=NRL 

7830 FOR M=i TO NRL 

7860 LET Ri=L.(1,¿Ms LET R2=L(2,M 
) 

7870 IF (R1:MAX) OR (R2z2MIM)> THE 


0. Qe a 


O 


301 


O 


302 


N 60 TO 7960 

7880 IF (Ri=MIN)> AND (REZ=MAX) 
THEN 60 TO 7950 

7890 IF (RIZMIM) AND (RE:MAX) T 
HEN 60 TO 7920 

7900 1F (Ri¿MIN) THEN 60 TO 7940 

7910 LET L.(1,M)=MA4X: 60 TO 7960 

7920 LET MORE=MORE*+1 

7930 LET OL, MORE)=MAX: LET L(2, 
MORE) =RZ 

7940 LET L.(2,M)=MIN+* GO TO 7960 
79390: LETAL CL, mM) =-1 

7960 NEXT M 

7969 REM Ordena la matriz L. 

7970 LET ONRL=0 

7980 FOR Mel TO MORE 

7990 IF L(1,M)><-EFS THEN 60 TO 

8000 LET NRL=NMRL-1 

SOLO LET Lts NRLI=LCL MS LETAL 

2 NRO LC, Mm) 

8020 NEXT M 

8030 IF NRL=0 THEN (GO TO 8140 
8040 NEXT E 

8049 REM Dibuja las partes visib 
les de la linea (si existen) 
38030 FOR Ex=1 TO NRL 

8060 LET Ri=L(1,K)3 LET Re2=1-Ri 
070 LET XF1=X1IARZ2AXIR 

8080 LET YFi=Y1x*XR2+Y2x*R1 

8090 LET Ri=L(2,K)4 LET R2=1-RKi 

3100 LET XF2=X1rRGeXxawR ld 

8110 LET YEF2=Y1AR2+Y2xXR 1 

8120 IF (ABS (XF1-XF2)2EFS) AND 
(ABS (YF1-YF2Z)<EFS) THEN 60 TO 

8150 

8130 LET XFT=XF12 LET YFT=YF11 6 

O SUE moveto 

8140 LET XFT=XF2s LET YPT=YF21 6 

O SUB lineto 

8150 NEXT K 

8160 LET I1Vi=IV28 LET Xld=X2: LET 
Yi=Y2 

8170 NEXT J 

8180 NEXT 1 

8190 RETURN 


Figura 12.1 


Ejemplo 12.1 


Dibujaremos una versión en perspectiva con líneas ocultas de la escena que en 
principio se dibujó en la figura 9.2: es decir, uno de los dos cubos mostrados en 
la figura 12.1. La escena tiene los valores HORIZ = 9, VERT = 6 y se observa desde 
(15, 10, 5) hasta (0, O, 0). 

Utilizaremos “rut1”, “rut3” y el algoritmo general de líneas ocultas (hidden, lis- 
tado 12.1) junto con la subrutina “escena3”, y “cubo” dadas en el listado 12.2. Con 
esta última versión de “cubo” hemos considerado todos los métodos matriciales de 
construcción de un objeto; almacenado/no almacenado, líneas/caras. Estamos utili- 
zando intencionadamente la figura del cubo una y otra vez en nuestros diagramas, 
ya que se trata de un objeto muy sencillo que resulta fácil de visualizar en sus 
distintas construcciones, y por tanto no complica nuestra discusión acerca de los 
principios generales de gráficos tridimensionales. Ahora es el momento de introducir 
mayor complejidad en nuestros objetos: suponiendo que se han comprendido las li- 
mitaciones de los algoritmos, las ideas expuestas son igualmente válidas para figuras 
más complejas. Aquellos que posean un Spectrum 16K, encontrarán que, por des- 
gracia, los programas de gran complejidad no pueden acomodarse en sus ordenadores. 
Deberán partir dichos programas en secciones independientes y almacenar los datos 
de los objetos y las matrices temporalmente en cinta. 


Listado 12.2 . 
: — = E E ME ; , 
, 6000 REM escenad/figura 12,1 
6010 DIM X(16): DIM Y(16): DIM Z 
(16) 
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6020 DIM V(16): DIM W(16):3 DIM F 
(4,1233 DIM H(12) 

6030 DIM A(4,4): DIM BE(4,4):2 DIM 
R(4,4): DIM (0(4,4) 

6040 LET cube=6500: LET hidden=7 

000 z 

6050 LET FED=3*VERT:+ LET NOV=0sx 

LET NOF=0 

6039 REM Situa el primer cubo en 
la posicion observada 

6060 GO SUE idR3: GO SUBE look 
6070 GO SUE cube 

6079 REM Copia la matriz de paso 
de posicion actual a observada 

en A 

6080 FOR Il=1 TO 43 FOR J:=i TO 4 

6090 LET Q(1,J)=R(1,03) 

6100 NEXT Ji: NEXT liz GO SUR idRa 

6109 REM Calcula la matriz de pa 

so de inicial a actual 

é6110 LET TxX=32 LET TY=:1.5% LET T 
Z=22 GO SUB tranzdi 60 SUE multa 
6119 REM Restablece la matriz de 
actual a observada 

6120 FOR I=1 TO 4: FOR J=1 TO 4 

6130 LET A(1,J)=Q(1,3) 

6140 NEXT Ji: NEXT 1 

6149 REM Calcula la matriz de in 
icial a observada 

61530 GO SUB mult3 

6159 REM Situa el segundo cubo y 
dibuja la vista de la escena C0 
n lineas ocultas 

6160 GO SUB cube 

6170 GO SUE hidden 

6180 RETURN 


6500 REM cubo/vertices y caras ( 
almacenadas) 

6501 REM Datos de entrada FFD,NO 
Y, NOF, X (NOV) , Y (NOV) , Z (NOV) , Y (NOV 
) ¿WINOV) 

6502 REM F (4,NOF),H(NOF),R(4, 4) 
6503 REM Datos de salida NOV, NOF 
y X (NOV) y YUNOV) y Z (NOV) , VUNOV) , W ON 


OY) 
4504 REM F(4,NOF),HC(NOF) d 


O 6510 DATA 1l,1,1, dsldarda 1d, 1,1 O 
' e dios iba == =1,1 
O asi, da dd o) 


63520 DATA 1,2,3,.4, 518,756, 1,5, 

buda 2461713, 7,814, 418,5, 1 

Y 6330 RESTORE cube O 

6337 REM Extiende la base de dat 

os de los vertices en la posicio 

¡375% n observada. pu 

63540 LET NV=NOYV 

6330 FOR I=1 TO 8 

2 6360 READ XX,YY,ZZ: LET NOV=NOV+-+ 1 

6370 LET XUNOV)=XX*R (1, 1) +Y1Y*KR CL 

A ZZRAR (OL, ARO, 4) | 

O | 63580 LET Y (NOV) =XX*R (2, 1) + Y YXAR CS 

AZ ZAR ARO, 4) 

6370 LET Z (NOV) =XXXAR CU, 1) + Y YARCZ ' 
| 
| 
| 


O AZ ZAR O ARCA 4) 

6399 REM Transforma la perspecti 
' Va 

6600 LET Y (NOV) =FFD*X (NOV)/Z (NOV) 
6610 LET W (NOV) =FED*Y (NOV)/Z (NOV) 
O 6620 NEXT 1 MN: 
| 66:29 REM Lee y extiende la base 
de datos de las caras 


01 66730 FOR I=1 TO 6 Na 
| 6640 READ F1,F2,F2,F4: LET NOF=N 
OF+1 

> 6650 LET H(NOF)=4 No 


| 6660 LET F(1, NOF)=F1+NVi¿ LET FC(Z 
y NOF) =F2+ANY 

O 6670 LET FC, NOF)=FI+NV LET F(4 O 
y NOF) =F44NVY 

E 6680 NEXT 1 : 
6690 RETURN 


MO 


Ejercicio 12.1 . 
Constrúyanse escenas con líneas ocultas compuestas de cubos, tetraedros, pirá- 


mides, octaedros, cuboctraedros, icosaedros. Como ayuda, facilitamos los listados 12.3 
y 12.4, que son subrutinas de construcción de un cuboctaedro y un icosaedro. Es- 
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criba sus propias subrutinas para un octaedro, o, quizá, para objetos más complicados 
como un rombododecaedro. 


Listado 12.3 


' 


my! 6500 REM icos/aedro 
E 6501 REM Datos de entrada y sali 
da como en el cubo anterior 
O 631O DATA O, L. Ts Trotta Le TD. 0 ( 


| “12 T, Ti0y=1, "LT, 0141), = 
| TrOsla, 11,0, Os ud T, -T,0,-1, 
0 -1,-T,0 ( 
6320 DATA 1,3,2, CAS 
: ¿Brós 116,3, 23,04 2, , 
9, 8, BSyllubs 316,72 210,9, 4971125 O 
Su dlésdlls Llao Did de 2d LOs 7 
91,10,12) 12.10.15 1110175 Za 1 


2 0,5 O 
6530 RESTORE icosa: LET T=(1+S0R 
| 5)/2 y 
O; 6540 LET NV=NOV O 
6550 FOR I=1 TO 12 
eo 6560 READ XX,YY,Z7Z: LET NOV=NOy+ a 
1 
| 6570 LET X(NOV)=XX*R (1, 1) +YY*RC1 
o! ¿DI4ZZAROL, AR, A) E 
6580 LET Y(NOV)=XX*R(2, 1) +YYROZ 
y 2I4+ZZR(2,3)+R (2,4) : 
sy 6590 LET Z(NOV)=XX*R(Z, 1) +YY*R OZ Ey 


y 2 IF ZZ ARO, ARO, 4) 
6600 LET V(NOV)=X (NOV) *FFD/Z (NOV 


O | ) E) 
6610 LET W(NOV)=Y (NOV) *FED/Z (NOV 
) 
O 6620 NEXT 1 de 


6630 FOR I=1 TO 20 


en 6640 READ F1,F2,F32 LET NOF=NOF+ 
1 

| 

| 

| 

| 

! 


6650 LET H(NOF)=23 
6660 LET F(1,NOF)=F1+NV2 LET F(2 


Us , NOF)=F24+NV2 LET F(3,NOF)=FZ+NV Ó | 
O 6670 NEXT 1 


6680 RETURN 


de cs a 
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Listado 12.4 


( 


6700 REM cuboct/aedro 

6701 REM Datos de entrada y sali 

da como en el cubo anterior 

6710 DATA O,l.,la 1,0,1l, 12110. O 
s=iyds 1303 -das 111,0, Osland, - 
Didi Lia dO0s 0 Límta LL 
yl Ó 

6720 DATA 1,2,4,83 110,174) 2534 

5,7, 4,9,10,12, 3.7,11.10, 6,08,1 

2 dd 

6730 DATA 13,24 1,816, 24914, == 
ls Artd2 Bs Ds 105% ¡ÓstliZs 10 
113 Le 

6740 RESTORE cuboct 

67350 LET NV=NOV 

6760 FOR I=1 TO 12 

6770 READ XX, YY,Z7Z3 LET NOV=NO0V+ 
al 

6780 LET X (NOV) =XX*R (1, 1)+YYx*R (1 
y 2) AZ ZAR (1, 04H R (1,4) 

6790 LET Y (NOV) =XXRK (2, 1) + YYAR OZ 
y AZ ZAR DAR 4) 

6800 LET Z (NOV) =XX*R 03, 1) +YYR (3 
y AZ ZAR O) ARCO, 4) 

6810 LET V (UNOV)=X (NOV) *FED/Z (NOV 
) 

6820 LET W(NOV)=Y (NOV) *FFD/Z (NOV 
) 

6830 NEXT 1 

6840 FOR I=1 TO 6 

6830 READ F1,F2,F3,F42: LET NOF=N 
OF+1 

6860 LET H(NOF)=4 

6870 LET F(1, NOF)=F1+NVi¿ LET FC 
y NOR) FEF 2ANVs: LET OF CE, NOF) =F3+NV g 
LET F(4,NOF)=F4+NY 

6880 NEXT 1 

63790 FOR I=1 TO 8 

6900 READ F1,F2,FZ1 LET NOF=NOF-+ 
1 

6910 LET H(NOF):=3 

6920 LET F(1,NOF)=F1+NV: LET FC 


O 
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| ys NO) =F2+NV: LET FCE, NOF)=FZ+NY 
| 6970 NEXT I 
41 6940 RETURN 


A ra 


Ejemplo 12.2 


Al llegar aquí habrá observado que los algoritmos generales de líneas ocultas 
son programas muy lentos: necesitan realizar un enorme número de comparaciones. 
El dibujo de los dos cubos de la figura 12.1 lleva al menos cinco minutos. Esto 
significa que estaremos bastante limitados en el tipo de objetos que podremos realizar. 
Sin embargo, resulta un excelente ejercicio, y si usted tiene oportunidad de utilizar 
ordenadores mayores, observará que los algoritmos anteriores funcionan también en 
ellas, aunque mucho más rápido. Damos en el listado 12.5 una subrutina “escena3” 
y en los listados 12.6 y 12.7, ejemplos .de dos objetos tridimensionales en forma 
de estrella (en ambos se requiere un parámetro A que varía la elongación de las 
puntas). Estas dos subrutinas “estrella” se basan en tetraedros y cubos. La figura 12.2 
ha sido dibujada con HORIZ = 48, VERT = 32, vista desde (35, 20, 25) hacia (0, O, 0). 


Listado 12.5 


O 6000 REM escenaz/dos estrellas sa 0 
in lineas ocultas 
6010 DIM X(22)13 DIM Y(22)121 DIM Z 
' 6020 DIM V(22)3 DIM-W(22): DIM F 
(3,36)23 DIM H(36) 
O 6030 DIM A(4,4): DIM E(4,4):3 DIM O 
| 
| 


[AER $ ATEOS 
| 


! R(4,4): DIM 0(4,4) 
| 6040 LET starl=6500: LET stari=ó 
20) 7001 LET hidden=7000 5) 
6050 LET FFD=2=*VERT+ LET NOV=04 
LET NOF=0 
Os 6059 REM Situa la primera estrel o) 
' la 
o! £060 GO SUB idR3: GO SUE look 
| 6070 LET A=6: GO SUE stari O 
6080 FOR I=1 TO 4: FOR J=1 TO 4 
eN £090 LET Q(1,J)=R(1,J) O 
6100 NEXT Ji NEXT l: GO SUE idRZ ] 
6109 REM Situa la segunda estrel 
O: na O 
6110 LET TX=5: LET TY=5%: LET TZx= 
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Listado 12.6 


E 


| 
' 


3: 60 SUBE tranza: 60 SUB mutz 


6120 FOR I=1 TO 4: 


FOR J=1 TO 4 


6130 LET A(1,J)=0(1,J) 


6140 NEXT Ji: NEXT 
6150 GO SUE multa 


I 


6160 LET A=4: GO SUE star 


6170 60 SUB hidden 


6180 RETURN 


51300 REM estrellal 


6501 REM Datos de 


entrada y sali 


da como en el cubo anterior 
6509 REM Estrella basada en un c 


ubo 

6310 DATA 1,1,1, 1 
y dilata La bad 
“de de "dad Ar O, 
sOy 04 7A,0, 0,0, As 


la La dll 
A PI 
O, A10,0, O, A 
0, 0,—A 


£520 DATA 1,2,9, 2,3,9, 3,4,9, 4 


21,9, 615,10, 5,8, 
eii 2 ds da 
Ad o 1 
Aia a, 
LE 2 
A 

6530 RESTORE star 
6540 LET NV=NOV 


6330 FOR I=1 TO 14 


105 87:10, Yo 
ll, S,6,1l, 6, 
iZ, ZaBates 8 
13s Br ids Dj 


lA. di 


6360 READ XX,YY,7Z: LET NOV=NOV+ 


1 


4570 LET X (NOV) =XX*R (1, 1) +Y1YXRC1 


2) ZZAR OA, ZAR AL, 


4.) 


6580 LET Y (NOV) =XX*R (2, 1) Y YxXR CL 


y ZA Z ZAR, DAR 


4) 


6390 LET Z (NOV) =XXAR CT, 1) AY YAR OZ 


1 2 AZZAR ES TAR OZ, 


4) 


6600 LET V(NOV)=X (NOV)X*FFD/Z (NOV 


) 

6610 LET W(NOV) =Y ( 
) 

6620 NEXT 1 


NOV) XFED/Z (NOV 


6, 


O 
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| ' 660 FOR Il=1 TO 24 
Ko : 6640 READ F1,F2,FZ33 LET NOF=NOF+ 0 
1 
| 6650 LET H(NOF)=3 
Med 6660 LET F(1,NOF)=F1+NV: LET F(2 Lo 
| y NOF)=F2+NVi LET FC, NOF)=FZ3+NY 
6670 NEXT I 
1 O) 6680 RETURN O 
E as EN 
Listado 12.7 
(E La Tv > E A Ll E ES O $ 
Was 6700 REM estrellaz O 
ES 6701 REM Datos de entrada y sali 
da como en el cubo anterior | 
Ed A 6709 REM Estrella basada en un t O 
e etraedro : 
6710 DATA 1ijlalda dani, -d, -1,1,- 
O : l, +1la-1dy 1, —As-AsAs As Ar As As RE, 
| Ar As AJA, A i 
6720 DATA 2,1,8, 23,2,8, 1,3,8, 1 : 
DI LT Bits Lis 2 O AS Me 
in ts ds ads 23.65 114,6 
6730 RESTORE starz 
O d 6740 LET NV=NOV ¡E 
6730 FOR I=1 TO 8 i 
6760 READ XX,YY,Z7Z3: LET NOV=NOV+ 
O 1 : O 
6770 LET X (NOV) =XX*R (1, 1) +YYxR (1 
o. A PIAZZA R (1,3 )4R(1,4) 
. 6780 LET Y (NOV) =XXAR(Z2, 1) + YYARCZ e 
y AZ ZAR (A, AR (4) 
O! 6770 LET Z (NOV) =XX*AR CT, 1) +1 YxAR OZ | O 
A AZAR, A ROT, 4) 
4800 LET V (NOV) =X (NOV) *PFD/Z (NOV | 
DL5 ) O 
6810 LET W(NOV)=Y (NOV) *PFD/Z (NOV ! 
) ! 
O! 6820 NEXT 1 | O 
6830 FOR l=1 TO 12 ! 
6840 READ F1,F2,F3i LET NOF=NOF+ 
O 1 e 
6830 LET HONOR) =3 
] 


310 


6360 LET F(1,NOF)=F1+NV3 LET F(2 


| y NOR) =F2ANV: LET FC, NOR) =F:3+NY 


6870 NEXT 1 20% 
a 64880 RETURN A] 
.S = 3 A == 


Figura 12.2 


Ejercicio 12.2 


El programa del listado 10.1 comprueba que el orden de los vértices de una 
cara triangular es antihorario. El programa está diseñado para ser utilizado con 
cuerpos convexos que contengan el origen. Extienda este programa de manera que 
pueda abarcar el caso más general: es decir, especificando la posición del observador 
y las coordenadas de un punto dentro del objeto (no necesariamente el origen) de 
manera que dicho punto y el observador se sitúen en lados opuestos de un plano 
infinito que contenga la cara. Utilice este programa para comprobar los objetos en 
forma de estrella que acabamos de ver (de hecho, para estas figuras el origen puede 
utilizarse como punto interior). 

Produzca a continuación sus propios objetos en forma de estrella, basados en 
octaedros, cuboctaedros, icosaedros o dodecaedros. También se pueden producir es- 
trellas basadas en cuerpos de revolución muy sencillos, y además no tenemos por 
qué limitarnos a objetos simétricos. Si se trata de formas no simétricas necesitará real- 
mente la versión extendida del listado 10.1. Si se mantiene dentro de los limites mar- 
cados por las restricciones mencionadas con anterioridad, el listado 12.1 podrá dibujar 
cualquier forma. 
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Ejercicio 12.3 


Añada información extra a los objetos que está colocando. Además de los datos 
de vértices y caras, introduzca otra matriz L de tal forma que L(1,1I) y L(2, I) con- 
tengan los índices de la dos caras cuya intersección es la arista I-ésima, 1 < I < NOL. 
Altere a continuación el algoritmo de líneas ocultas de manera que ignore cual- 
quier línea limitada por dos caras invisibles (horarias), y no compare una cara con 
las líneas que se sitúan en la misma. 


Si usted ha leído y comprendido los capítulos 7 al 12, encontrará que hemos 
alcanzado los límites de gráficos tridimensionales en el Spectrum. Deberá tener acceso 
a ordenadores mayores si desea avanzar en el estudio de este tipo de gráficos por 
ordenador. Además, deberá estudiar las técnicas que utilizan estructuras de datos, 
en vez de matrices, para definir las escenas. Por ejemplo, se puede definir una es- 
cena completa como una lista encadenada de apuntadores (pointers), cada uno de 
ellos apuntando a una lista de información sobre las caras de un tipo particular 
de objetos. Las propias caras pueden almacenarse como listas de vértices: es una idea 
aparentemente compleja, pero hace que los algoritmos de líneas ocultas resulten mu- 
cho más sencillos. En las propias listas están almacenadas implícitamente las relaciones 
entre objetos y caras. Cuando avance en ese estudio, podrá aventurarse con com- 
plicados algoritmos gráficos que incluyan métodos de animación, coloreado y som- 
breado. Recomendamos que se acceda a algún libro especializado en la materia, tanto 
para el estudio de estructuras de datos como para métodos gráficos complejos. En 
el siguiente capítulo realizaremos un repaso de gráficos de caracteres más avanzados, 
e introduciremos un método de producción de dibujos animados tridimensionales. 


Programas completos 


IL “rutl”, “rut3”, los listados 12.1, “algoritmo general de líneas ocultas” (idden) 

y 12.2 “escena3” y “cubo” (scene3 y Datos necesarios: HORIZ, VERT, 

(EX, EY, EZ), (DX, DY, DZ). Intente a) 9, 6, (15, 10, 5), (0, 0, 0); b) 9, 6, (—10, 10, 
—10), (0, 1, 0). 

MH. “rutl”, “rut3”, los listados 12.1, “algoritmo general de líneas ocultas” (hidden) 

y 12.2, “escena3” (scene3). Introduzca por medio de un MERGE el listado 12.3, 

“icosaedro” (icosa) y 12.4, “cuboctaedro” (cuboct) y altere la subrutina “escena3” 


como sigue: 

E A 
EN 6010 DIM X(24)% DIM Y(24)14 DIM Z O 
e (24) 

6020 DIM V(24)3 DIM W(24): DIM F 
O! (4,734): DIM H(34) O 

| | 

| 6040 LET cuboct=6700: LET icosaz | | 
de 65001 LET hidden=7000 Ma 
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6070 GO SUB icosa 
O 


ads a 


e 6160 GO SUB cuboct 


Datos necesarios: HORIZ, VERT, (EX, EY, EZ), (DX, DY, DZ). Intente a) 9, 6, 
(15, 10, 5), (0, 0, 0); b) 9, 6, (— 10, 10, 10), (0, 1, 0). 


MI. “rutl”, “rut3”, los listados 12.1, 12.5 “escena3” (scene3), 12.6, “estrellal” (starl) 
y 12.7 “estrella2” (star2). Datos requeridos: HORIZ, VERT, (EX, EY, EZ), 
(DX, DY, DZ). Intente a) 60, 40, (10, 20, 30), (0, O, 0); b) 90, 60, (—10, 20, —10), 
(0, 1, 0). 
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13 


Técnicas avanzadas 
de programación 


Desde hace algunos años, se ha popularizado el término “amistoso al usuario” 
(user friendly) para denotar programas sencillos de utilizar incluso para personal 
no especializado. Lo que realmente da a un programa calidad profesional es precisa- 
mente el hecho de ser user friendly. Quizá es una de los pocos slogans de la jerga 
publicitaria que tiene alguna relación con la realidad: es necesario hacer programas 
que sean fáciles de utilizar, no sólo para nosotros sino para otros usuarios. Todos 
hemos pasado la desagradable experiencia de intentar utilizar un programa que escri- 
bimos rápidamente tres meses antes, para encontrarnos con que está tan mal estruc- 
turado y/o comentado que somos incapaces de comprenderlo nosotros mismos. Es una 
buena práctica de programación utilizar comentarios así como hacer entradas/salidas 
autoexplicativas. Asegúrese de que los mensajes que aparecen en pantalla en la 
ejecución son claros y concisos. Otra forma de hacer más accesible un .programa es 
introducir una pequeña subrutina explicativa al comienzo de la ejecución del estilo 
de las utilizadas en los videojuegos comerciales. 

Cuando tengamos un programa que dispone de un conjunto de subrutinas que 
se pueden utilizar en cualquier secuencia o combinación, el método usual de selec- 
ción es el menú (véase el programa GENERADOR DE CARACTERES del cafítulo 5). 
Si conseguimos que los mensajes sean apropiados y descriptivos de las acciones a 
realizar, este método es especialmente útil para usuarios que no comprenden los de- 
talles del programa y desean utilizarlo únicamente como herramienta de dibujo. 
En la mayor parte=de las veces, el tipo de mensaje a mostrar es un asunto pura- 
mente de sentido común. Evite los clásicos mensajes confusos como PULSE 1 PARA 
DATOS DUPLICADOS, 2 PARA DATOS SIMPLES. Si es posible, utilice las teclas 
de cursor para movimientos en la pantalla (véase opción 3 del programa GENERADOR 
DE CARACTERES del capítulo 5): esta técnica resultará natural a cualquier usuario 
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normal de Spectrum. El listado 13.1 muestra un programa que puede utilizarse para 
dibujar poligonos (como en el ejercicio 1.3). La subrutina de entrada utiliza “EDIT” 
y las teclas de cursor, estando diseñados para personas familiarizadas con la pro- 
gramación en Spectrum. 


Listado 13.1 


10 DIM X(10): DIM Y(10) mc A 
20 LET input=2001: LET list=iG0 
: 20 60 SUBE input 
2 40 FLOT X(10),Y(10)3 LET OX=X( WD 
] 
| 
| 
| 
| 


10): LET OY=Y(10) 
50 FOR I=1 TO 10: DRAWN X(1)-0X 


| 
O ¿V(19=0Y8 LET Pxaxlityr LET ONSY3 e 
1): NEXT 1 
60 FAUSE 250: GO TO 30 , 
O Lol 
200 REM entrada de coordenadas : | 
oe 210 LET I=1 a | 
220 60 SUB list ¡Y 
230 LET I$=INKEY$: 1F 1$="" THE ] | 
3 N (GO TO 230 pl 
U 


| 240 IF I$=CHR$ 10 AND 1<11 THEN | 
LET I=1+1: GO TO 220 | 
2 250 IF I$=CHR$ 11 AND I>1 THEN A 
LET I=I-12 60 TO 220 A: 
260 IF I$<>CHR$ 7 THEN GO TO 2 

O ZO 0 
270 IF I=11 THEN INPUT "Fin. ? 
"3 LINE 1$: 1F I$="s" THEN CLS 
O : RETURN O 
280 IF I=11 THEN GO TO 220 | | 
290 INPUT "Coord. X"3X(1),"Coor | 


O d. Y"3Y(1): GO TO 220 O 
? | 

e | 300 REM lista los datos EN 
¡ 310 CLS 1 FOR J=1 TO 10 Sl 
| 320 PRINT AT J,13"Coord. X"3X(J 

en ) "Coord. Y"¿Y(D) 


330: NEXT Ji PRINT AT 11,13"Fin 
“y "1 PRINT AT 1,03">" 
0 340 RETURN O 
L pe A a a a 
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Códigos de control 


El comando INPUT se puede utilizar para obtener mensajes precediendo a cual- 
quier petición de datos. En la mayor parte de los casos, simplemente colocamos el 
mensaje encerrado entre comillas, de la misma forma en que deseamos que aparezca, 
justo antes del dato en la sentencia INPUT. En el Spectrum podemos forzar la 
evaluación de cualquier expresión de tipo tira de caracteres (string), incluyendo lla- 
madas a funciones, colocando estas expresiones entre paréntesis. De esta forma serán 
tratadas como si estuviesen encerradas entre comillas. Se ha usado este método en 
el listado anterior; podemos aprovecharlo para producir mensajes mucho más com- 
plicados. Si construimos una tira de caracteres que contenga códigos de control 
podremos representar gráficos coloreados en cualquier lugar de la pantalla. Además, 
una variable de este tipo se puede construir en varias etapas y colocar el nombre 
a continuación en el comando INPUT entre paréntesis. Se pueden incluir códigos 
de control en la tira usando la función CHR$, y variables numéricas usando STR$. 
Esta técnica se utiliza en el programa MASTER MIND (listado 5.6) y también en 
el JUEGO DEL GUSANO (listado 1.16). Se pueden conseguir cambios rápidos en 
cualquier parte de la pantalla utilizando tiras con códigos de color incluidos o ins- 
trucciones del tipo PRINT AT CODE. En el listado 13.2, como ejemplo, presen- 
tamos un programa menú de un eventual sistema de manejo de ficheros. Obsérvese 
la utilización de colores para advertir de opciones potencialmente peligrosas. 

Se pueden introducir también los códigos de control directamente desde teclado 
para su inclusión en tiras (véase Manual del Spectrum). Estos códigos directos son 
ignorados durante la ejecución; pueden también formar parte de sentencias de pro- 
grama con el fin de destacar u ocultar partes del listado. En los programas de 
la cinta que acompaña al libro se encuentran varios ejemplos en los cuales las sen- 
tencias REM de comienzo de cada subrutina empiezan con un CODE para BRIGHT 1 
(“9” en modo extendido) y terminan con BRIGHT 0 (“8” en modo extendido). 
Para rellenar la sentencia REM de modo que finalice en el borde de la pantalla, 
necesitamos introducir un CODE 6 en la línea, que equivale a una coma en sen- 
tencias PRINT. Aunque esta opción no parece en principio accesible desde teclado, 
podemos conseguir el efecto deseado insertando el CODE de PAPER 6 (“6” en 
modo extendido) y pulsando inmediatamente después DELETE. Esta secuencia eli- 
mina el CODE de PAPER pero deja CODE 6, que tiene el efecto subsiguiente 
de hacer que el cursor salte a la siguiente mitad o línea completa. 

Así, CODE 6 se interpreta tal como es, y no como parámetro para PAPER. 
Si utilizados CODE 6 al final de cada línea antecediendo una nueva sección del 
programa obligaremos a que en la salida en pantalla aparezca una línea en blanco 
en el listado. Por otra parte, podemos ocultar la palabra REM colocando un CODE 
para INK 0 (“0” en modo extendido) detrás de REM, y otro INK 7 (*7” en modo 
extendido) delante del mismo. 

Como norma general, es mejor escribir los programas en módulos. Dentro de 
los mismos conviene destacar los nombres de los módulos, lo cual nos permitirá 
leer, corregir y adaptar los programas con facilidad. Para demostrar cómo se mejora 
la legibilidad de un listado, obsérvese la figura 13.1, que muestra parte del listado 13.6 
tal como aparece en la pantalla. 
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Listado 13.2 
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100 DIM G(6): DIM A$(6,24) 

110 FOR l= 1 TO 6: READ G(I):2 N 
EXT 1 E 
120 DATA 1000,1000,1000,1000,10 
00, 1000 

130 LET A$(1) ="EDITAR": LET As 
(De "IMPRIMIR" 

140 LET A$(3)= "GUARDAR": LET A 
$(4)="CARGAR" 

130 LET A$(S) = CHR$ 17 + CHR$ 
16 + CHR$ 7 + "BORRAR FICHERO" + 
CHR$ 17 + CHR$ 7 

150 LET A$(6) = CHR$ 17 + CHR$ 
2 + CHR$ 16 + CHR$ 7 + "EORRAR T 
ODOS" + CHR$ 17 + CHR$ 7 


300 REM menu/seleccion de opcio 
nes 

310 CLS 1: FRINT AT 2,83 "MANEJO 
DE FICHEROS" 

520 FOR 1 = 1 TO 6 

330 FRINT AT Ix2 + 4,8513" 0 
A$C(I) 

340 NEXT 1 

5590 INFUT "ELIJA OFCION":0F 

360 IF OF 2 1 OR OF + 6 THEN 
60 TO 3500 

370 1F 0F <-53 THEN 60 TO 600 
380 INFUT ("ESTA SEGURO DE"3 + 
CHRS$ 6 + ASCOF) + " ")iYs 

70 LE Vb 2 TAEN CU TOS 
SO 


600 60 SUBE G(0F): GO TO 3500 


1000 REM resto de subrutinas 
1010 RETURN 


a2zami82ento de Panta 
3raficos) 


= od 


SEMA SER oES 
A 
ESIINBEOREE 


Figura 13.1 


Estructura del display file 


Sabemos que el display file se puede alterar directamente desde programas BASIC, 
así como examinar un contenido; sin embargo, para hacer uso de esta facilidad, 
debemos comprender el modo en que el display file está organizado. Cada línea 
horizontal de la pantalla se compone de 32 bytes, cada uno de ellos de ocho bits. 
Estos 32 bytes están almacenados en posiciones consecutivas de la memoria. Sin 
embargo, los bytes de la línea siguiente se almacenan en la posición equivalente de 
la siguiente página de la memoria. Para un microprocesador de ocho bits, como lo 
es el Z80 que contiene el ZX Spectrum, una página de memoria significa 2% ó 256 bytes: 
utilizamos el identificador PAGE para referirnos a esta cantidad. Se utiliza esta dis- 
posición para ayudar a la circuitería de video a trabajar eficientemente con la pan- 
talla. Así pues, cada página tiene espacio suficiente para ocho líneas de 32 bytes. 
La primera página del display file contiene la línea superior de cada una de las 
ocho primeras líneas de bloques de caracteres. Las restantes siete líneas de estas 
filas residen en otras siete páginas de memoria, conteniendo cada página los datos 
de la línea correspondiente. Después de estas ocho páginas existen otros dos con- 
juntos de ocho páginas cada uno que contienen la información del resto de la pan- 
talla. A partir de estos datos podemos calcular los bytes que contienen los datos 
de la línea superidr de un bloque determinado, y saber que cada una de las demás 
líneas se almacenan 256 bits (una página) más adelante. Para averiguar la posición 
de la línea superior de un bloque determinado en el display file, deberemos saber 
también a qué tercio de la pantalla (ocho páginas) pertenece el bloque. Necesitamos 
también identificar, dentro de este tercio de pantalla, a cuál de los 256. bloques 
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posibles nos estamos refiriendo. La siguiente función calcula la posición de la pri- 
mera línea de un bloque de caracteres, dado la fila R y columna C: 


DEF FN A(R, C) = 16384 + INT (R/8)*2048 + (R — INT(R/8)*8)*32 + C 
Esta función se compone de cuatro partes: : 
16384 (el comienzo del display file) 


+ INT (R/8)*2048 (para situarnos en el tercio de pantalla (0, 1, 2) correspon- 
diente multiplicando por la longitud de un tercio de la pantalla (2048 = 
= 8*PAGE)) 


+ (R — INT(R/8)*8)*32 (más la posición de la fila dentro de ese tercio de pan- 
talla (0-7) multiplicada por 32 (columnas por filas) 


+ C (más la columna (0-31) dentro de dicha fila) 


Las dos primeras partes determinan la localización del comienzo de página que 
contiene las primeras líneas de ese tercio de pantalla. Los dos últimos localizan el 
byte correspondiente entre los 256 de la página. 

Utilizando una nueva función con un carácter como parámetro de entrada, po- 
demos encontrar el comienzo del dato que define a dicho carácter, y transferir estos 
datos a posiciones del display file 


DEF FN T(A$) = PEEK 23606 + PEEK 23607256 + 8*CODE A$ 


Esta función utiliza la variable de sistemas CHARS (almacenada en las posiciones 
23606 y 23607, véase capítulo 5) para localizar el comienzo de la tabla de datos 
del conjunto de caracteres. A continuación añade CODE multiplicado por ocho para 
el carácter requerido y así encuentra la dirección de la primera parte del dato. Obsér- 
vese que estas dos funciones pueden utilizarse para escribir en las dos líneas in- 
feriores de la pantalla que no son normalmente accesibles; demostramos este último 
punto en el programa del listado 13.3. 


Listado 13.3 


) 100 REM programa principal 


[ | O 
110 LET print = 500 ] 
120 LET p$ = "9 sentencia FALSA 
2 s 120:1"% LET ROW = 233 LET COL E 
| == | 
| 170 GO SUE print 
O 140 LET F$= "imprime en cual qui 120 
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er parte": LET ROW = 73 LET COL 0 
= 16 
150 GO SUE print | 
160 FAUSE 250: STOF NS 
| 
O 500 REM subrutina de impresion 
3910 DEF FN A(R,C) = 16384 + INT O 
(R/8)*2048 + (R —- INT (R/8)*8)% : 
O 32 + C Ó 


320 DEF FN D(A$) = FEEE 2606 + 
: 206 *XFEER 23607 + BXCODE At 
O 330 FOR 1 = 1 TO LEN Fs$ O 
| 3940 LET ADRESS =FN AC(CROW, COL.) 
3390 LET DATA = FN D(F$(1)) 


O 560 FOR J = 0 T10 7 Eo 
l 570 FOKE ADRESS + J*256,FEEK (D | 
ATAL + 3) 

O 580 NEXT J des 


| 370 LET COL =- COL + 13 TF COL 
22 THEN. LET COL = O: LET ROW 


(| I 
O! ROW + 13 IF ROW = 24 THEN  LET o 
| ROW = 0 | 
| £00 NEXT 1 
O 610 RETURN i An 


Transferencia rápida de datos de pantalla 


Si intentamos mover el display file del Spectrum rápidamente nos daremos cuenta 
en seguida de que el BASIC no tiene la velocidad suficiente para transferir la can- 
tidad requerida de datos adecuadamente. Sin embargo, el Spectrum está controlado 
por un microprocesador Z80 que se halla especialmente dotado para la tarea de 
mover datos de un lado a otro con rapidez. Para programar directamente estos 
movimientos de datos en lugar de utilizar BASIC como intermediario) necesitamos 
hacer una pequeña excursión al código máquina. El código máquina Z80 tiene ins- 
trucciones equivalentes a PEEK y POKE de BASIC, que se pueden utilizar para 
examinar o sustituir números en una determinada posición de memoria. 

El Z80 tiene también registros internos, en los cuales se colocan los números, 
y se utilizan de una forma muy semejante a las variables en BASIC. 

Podemos, por“ tanto, escribir un conjunto de instrucciones en código máquina 
(es decir, un programa) para cargar uno de estos registros con un númers de una 
posición de memoria determinada y a continuación carger el número del regist: 
en otra posición de memoria. Este proceso puede parecer poco interesanic, asta 
que uno se percata de que el microprocesador Z80 es capaz de realizar esta operación 
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un millón de veces por segundo. Desgraciadamente, el código máquina resulta un ex- 
traño jeroglífico al principiante; tiene la apariencia de un chorro de números aparente- 
mente sin conexión entre ellos. Resulta más conveniente usar lenguaje ensamblador, 
que contiene palabras cortas, códigos mnemónicos, que resultan de gran ayuda para 
comprender la función de cada instrucción de código máquina (sabiendo un poco de 
inglés). La estructura del Spectrum requiere que las instruccionestde código máquina 
se almacenen en sentencias DATA y a continuación se inserten en memoria por medio 
de POKE. Resulta útil incluir las instrucciones de lenguaje ensamblador como sen- 
tencias REM en la línea DATA. Se llama ensamblador a un programa capaz de tra- 
ducir lenguaje ensamblador a código máquina; si no disponemos de uno de ellos, 
podemos utilizar la tabla que se da en el apéndice A del Manual del Spectrum. 
Una de las instrucciones más potentes en el microprocesador Z80 es 237,176, que 
se simboliza en lenguaje ensamblador con el código LDIR. Este código es un 
mnemónico de la expresión inglesa LoaD and Increment Repeated (cargar e incremen- 
tar repetidamente), instrucción utilizada para transferir bloques de datos de un lugar 
a otro de la memoria. Antes de ejecutar la instrucción, sin embargo, debemos cargar 
valores apropiados en algunos de los registros. En concreto, se debe introducir en 


DE la dirección de destino de los datos. 
HL la dirección actual de los datos. 
BC el número de bytes a transferir. 


Para mayor claridad presentamos en la figura 13.2 un ejemplo de subrutina de 
código máquina, con su equivalente en lenguaje ensamblador, y además un programa 
BASIC que ejecuta exactamente la misma función. Recuérdese que el lenguaje en- 
samblador es simplemente una forma de hacer el código máquina más comprensible. 
El programa completo, listado 13.4, introduce en la memoria el código máquina por 
medio de POKE y a continuación llama a la subrutina. Este ejemplo copia el 
tercio inferior del display file en el tercio superior de la pantalla. 


300 REM transferencia de datos en BASIC 


17,0,64 LD DE, 16384 310 LET DE = 16384 

33,0,80 LD HL,20480 320 LET HL = 20480 

1,0,8 LD BC,2048 330 LET BC = 2048 

237,176 LDIR 340 LET A = PEEK HL:POKE DE,A 


350 LET DE = DE + 1:LET HL = HL + 1 
360 LET BC = BC — 1 
370 IF BC <> 0 THEN GO TO 340 

201 RET 380 RETURN 


Figura 13.2 
Una vez introducidas las instrucciones de código máquina en la memoria, ejecu- 


tamos la subrutina utilizando la función USR con la dirección de comienzo de aquélla. 
USR acompañada de una dirección numérica simplemente llama a la subrutina en 
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código máquina que comienza en tal dirección. La llamada se ejecuta en un pro- 
grama BASIC por medio de un comando como LET A = USR 32000 (32000 es 
la dirección que contiene 17, el primer byte del código). 


Listado 13.4 


10 REM cargador para subrutina 
O en codigo maquina O 
19 REM para maquinas de 16EK us 
ar CLEAR 21999 


| 
O 20 CLEAR 63999 Ne 
ZO FOR 1 = 0 TO 11: READ A 
e 29 REM para 16k utilizar POKE 
DE 32000 0 
40 FOKE 64000 + 1,A: NEXT 1 
| ' 100 REM datos para la subrutina ER 
| de transferencia en codigo maqu 
ina 
e 110 DATA 17,0,64 : RE 0) 
M LD DE, 16384 
| 120 DATA 33,0,80 : RE 
3 M LD HL, 20480 0 
130 DATA 1,0,8 : RE | 
o! M LD EC, 2048 
| | 140 DATA 237,176 : RE 50 
| | M  LDIR: 
| 150 DATA 201 : RE 
de M  RET O 
| I 
$ 200 REM programa principal O 


210 LS $ FOR. = 0 TO 21 


| | 220 FOR J =0 TO 31: PRINT AT 1, 
Wa Y J5CHR$ (1 + 64): NEXT J "o 
| 230 NEXT 1 
| | 240 FRINT AT 19,153 INVERSE 13"P 
Sa ULSE CUALQUIER TECLA PARA COMENZ Me 
| i AR ” 
250 IF INKEY$="" THEN GO TO 25 
O a O 
259 REM para 16k cambie a USR 3 | 
| 2000 ¡ 
L O 260 LET A = USR 64000: STOF ] O ] 
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Ejercicio 13.1 


Teclee la subrutina BASIC de la figura 13.2 y cronometre el tiempo que tarda 
en ejecutarse. Compare dicho tiempo con el que transcurre en la ejecución de la 
subrutina código máquina del listado 13.4. Observará que el código máquina es miles 
de veces más rápido. 


Animación (sólo en ordenadores de 48K) 


Utilizamos una subrutina sencilla para transferir todos los datos necesarios para 
representar un dibujo (es decir, el display file y el fichero. de atributos). Estos datos 
se encontrarán en algún otro lugar de la memoria, diferente de las localizaciones 
de memoria de la pantalla. Así podemos conseguir un método rápido de intercambio 
de imágenes. En un Spectrum 48K hay memoria suficiente como para mantener 
simultáneamente cinco imágenes alternativas o encuadres. Podemos utilizar el programa 
del listado 13.5 para construir cinco subrutinas en código máquina en las posiciones 
30100, 30200, 30300, 30400 y 30500 con el fin de transferir estas imágenes en la pan- 
talla. Supongamos que disponemos de cinco diagramas almacenados en cinta. Podemos 
cargarlos en el ordenador (LOAD) colocándolos en sitios apropiados de memoria 
de manera que puedan ser llevados alternativamente a la pantalla. Este método puede 
utilizarse para ilustrar una conferencia o charla de negocios con unas “diapositivas”, 
y permite cambiar casi instantáneamente de una a otra. Naturalmente, una vez pre- 
sentadas las cinco diapositivas, deberemos esperar hasta que se carguen las cinco 
siguientes. Esta operación puede demorarse unos cinco minutos desde cinta, pero 
menos de diez segundos desde disco. 

Pulsando cualquier tecla entre “1” y “5” mientras utilizamos la subrutina “proyec- 
ción” (listado 13.5) aparecerá en pantalla el dibujo solicitado. 


Listado 13.5 


A A EIA AS E 
100 REM cargador para rutinas e 

| n codigo maquina 

| 110 CLEAR 29999: DIM F (3) 

MEN 120 FOR 1 =1 TO 512: RESTORE 

130 LET F(1)=1204+27% (1-1) 

140 FOR J = O TO 11 


O 150 READ Az POKE ZO000+1X*100+J, 
I 
A 
| 160 NEXT J 
O 170 NEXT 1 


| 
200 REM transferancia de datos 
2 del cuadro iesimo a la pantalla 
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¿10 DATA 17,0,64 o RE 


M LD DE, 16384 

220 DATA 33,0,F(1) : RE 
M LD HL, FRAME (1) 

230 DATA 1,0,27 : RE 
M LD BC, 27256 

240 DATA 237,176 : RE 
M  LDIR 

250 DATA 201 : RE 
M  RET 


300 REM 
210 FOR 
Or FAUSE 
220 CLS 
230 LOAD ""CODE 


E7XZ23Ó 


carga los cuadros 
J=1 TO 10: BEEF 0.1,2 


¿OQ TO 4 
120+ 127) *236 y 


= (5 
Z 
Am 
rx 
= 
GQ 


540 NEXT 1 
390 FOR Y = 1 TO 101 REEF 0,1, 3 


O PAUSE 


400 REM 


tiva 
410 IF 
410 


SS: NEXT J 
proyeccion tipo diaposi 


INEEYS <23"" THEN 60 TO 


420 LET A$ =INKEY$: 1F A$="" TH 
EN (GO TO 420 


430 IF 
310 

440 IF 
450 IF 
EN  LET 
460 60 


A$ =CHR$ 13 THEN GO TO 


A$ = "m" THEN GO TO 500 
A$ >= "1" AND A$<="5" TH 
a=USR (FODOO+VAL A$*100) 
TO 410 


300 REM proyeccion tipo cine 


io FOR 


100 


Il = 0100 TO 230300 STEF 


320 LET A = USR 1 


O TF 
4O0O 


INKEYS = "s'" THEN 60 TO 


540 NEXT 1: GO TO 510 


O 


O 


O 


'0) 


Su, 


de 
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a 
pt 


A 


(c) 


a, 


(d) 


erre 


Figura 13.3 
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Podemos utilizar esta idea para producir “cine”. Por ejemplo, observemos la fi- 
gura 13.3 que muestra cinco encuadres producidos por las subrutinas de tres di- 
mensiones del capítulo 11. Se trata de varias vistas del mismo esferoide creadas 
utilizando HORIZ = 3.2, VERT = 2.2, NUMH = 10, NUMV = 8, y PHI = 0.4*PI+*1/ 
NUMH, donde 0 < I < 4. Podemos hacer “moverse” este objeto, el cual está obser- 
vado desde (1,2, 3) hacia (0, 0, 0) presentando en pantalla secuencialmente los cinco 
encuadres en rápida sucesión. Este conjunto de diagramas está incluido en la cinta 
de datos. 

Una vez finalizado el programa “cine” o “proyección”, deberá teclear CLEAR 65367, 
ya que de otro modo la próxima vez que cargue un programa (LOAD) el Spectrum 
responderá “Out of Memory”. 


Ejercicio 13.2 


Dibuje una vista en perspectiva de un cubo en el encuadre 1 y la misma vista, 
utilizando un algoritmo de líneas ocultas, en la vista 2. Produzca una “película” 
consistente en estos dos encuadres únicamente; se deberán ver las aristas visibles 
del cubo fijas, mientras que las aristas ocultas aparecerán y desaparecerán inter- 
mitentemente. Construya una “película” en la que alguna de las “estrellas” del capí- 
tulo 12 dé la impresión de girar. 


Scrolling (ordenadores de 16 y 48K) 

La utilización de código máquina para trabajos más complicados necesita bas- 
tantes más conocimientos y un largo tiempo de estudio. Aconsejamos consultar un 
buen libro sobre la materia, preferiblemente uno dedicado específicamente a Spectrum. 
Para aquellos que deseen realizar manipulaciones más complejas de la pantalla en 
código máquina, daremos un nuevo ejemplo. El listado 13.6 es un programa que 
realiza el “enrollado” (scroll) de la pantalla de arriba a abajo. El problema que se 
nos presenta es el ya comentado de estar los datos del display file divididos en 
líneas de 32 bytes. Para poder mover estos datos con eficiencia necesitamos saber 
las direcciones de comienzo de estas líneas. El cálculo de direcciones en una subrutina 
de código máquina necesita un gran esfuerzo de programación y lentifica la ejecución. 
En su lugar utilizamos una tabla de consulta. A efectos de código máquina, una 
dirección se compone de 16 bits almacenados en dos posiciones de ocho bits cada 
una, llamadas el byte alto y el byte bajo. Todo lo que tenemos que hacer para saber 
la dirección de una línea es simplemente mirar estas dos mitades en las tablas. Uti- 
lizamos lenguaje BASIC para calcular las tablas y las introducimos en memoria 
por medio de instrucciones POKE. Estas tablas, así como el propio código máquina, 
pueden almacenarse en cinta y volverse a cargar si es necesario. El listado 13.6 
da el programa en código máquina, el cargador BASIC y el constructor de la tabla 
de direcciones. El listado 13.7 muestra una subrutina BASIC equivalente al pro- 
grama. Obsérvese que la subrutina BASIC supone la existencia de la misma tabla 
utilizada por el código máquina. 
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Ejercicio 13.3 


Escriba una subrutina en código máquina que modifique el fichero de atributos 
en memoria, una fila cada vez. Escriba a continuación un programa BASIC que 
llame a dicha subrutina siempre que el área de gráficos ascienda ocho líneas. 


Listado 13.6 


qÉñ——— EST 
| e 10 REM cargador para rutina ES 
| en codigo maquina 
20 CLEAR 31999 


ME ZO FOR 1=0 TO 74 O 
| 40 READ Az FOKE 32000+1, A 
30 NEXT 1 | 
30 Me 
100 REM desplazamiento de panta / 
61 lla hacia abajo (zona graficos) O 
110 DATA 1,173,0 
¿ REMOLD BC,175 : 
1 120 DATA 221,33, 739,125 O 
¿ REM OLD IX, LOEYTE 
: 130 DATA 221,9 
5 2 REM ADD IX, EC Na 


140 DATA 221,110,0 
: REM LD Ly CIX+0] 
2% 150 DATA 221,33,251,125 O 
: REM LD IX, HIBYTE 
160 DATA 221,9 
¿ REM ADD IX, BC WO) 
170 DATA 221,102,0 
O : REM OLD H, CIX+0] 
180 DATA 17,171,120 : 
: REM OLD DE, TEMP 
O 190 DATA 205,67,125 | 
: : REM CALL MOVE 
500 DATA. 221,33,794 125 
nl : REM OLD IX, LOBYTE 0 
210 DATA 221,9 
: REM ADD IX, EC 
O 220 DATA 221,94,0 0 
: REM LD E, CIX+0] 
270 DATA 221,110,-1 
ESA : REM OLD L, C1X-1] 


O 
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240 DATA 221,33,251,125 
: REMOLD IX, HIBYTE 
250 DATA 221,9 

¿ REMADD  I1X,BEC 

260 DATA 221,86,0 

: REM LD D,C1X+0] 
270 DATA 221,102,-1 
: REM OLD Ha LIX-1] 
280 DATA 205,67,125 
: REM CALL MOVE 

290 DATA 13 

: REMDEC  C 


300 DATA 32,226 

: REM OJR NZ , LINE 
310 DATA 17,0,44 

2 REM LD DE, 16784 
320 DATA 33,171,126 
: REM OLD HL, TEMP 
33O DATA 205,67,125 
: REM OCALL MOVE 

740 DATA 201 

: REM ORET 

350 DATA 197 

: REM PUSH EC 

360 DATA 1,32,0 

: REM OLD BC, 32 
370 DATA 237,176 
¿REM OLDIR 

780 DATA 193 

¿ REMOFOFR. EC 

390 DATA 201 

REM ORET 


400 REM construye tablas de dir 


ecciones de lineas de pantalla 


410 FOR I=0 TO 211 FOR J=0 TO 7 
420 LET A=16384+1INT (1/8)*2048+ 


CIINT (1/8)*8) 32 


430 LET H=INT (A/2536):3 LET L= 


HZ2é 

21440 FOKREÉ 220730+18+J,Li4 FOKE 
25 TABA y HA 

4530 NEXT Ji NEXT 1 

500 REM programa principal 


A- 


eS 
pa 
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Listado 13.7 


E 


pa 
KI 


O 


O 


330 


510 LIST 380 

520 IF INKEY$<5"" THEN  LET A=U 
SR 32000 

530 60 TO 320 


10 REM version en basic del de 
splazamiento de pantalla hacia 
abajo (zona graficos) 

20 CLEAR 31999 

350 60 TO 400 


100 REM desplazamiento de panta 
lla hacia abajo con repeticion 
110 LET C=17%: LET ExOír LET OEC= 
CHE 256 

120 LET 1XLO=7%% LET IXHli=123:5 
LET IX=IXLO+IXHI*2306 

130 LET IX=IX+EC 

140 LET L=FEER (1X+0) 

1390 LET IXLO=2351: LET 1XHI=1252 
LET 1IX=IXLO+IXHIX* 236 

160 LET 1IX=IX+EC 

170 LET H=FEEK (1X+0)2 LET HL=L 


180 LET E=171: LET D=126: LET D 
EsE+D*r2ó6 

190 60 SUE 330 

200 LET 1IXLO=758 LET 1XHl=125:2 
LET IX=IXLO+1XHIX*236 

210 LET 1IX=1IX+EC 

220 LET E=sFEER (1X+0) 

230 LET L=FEEK (1X-1) 

240 LET IXLO=2318 LET 1XHl=1253: 
LET IX=IXLO+1IXHI*z23 

200 LET 1IX=IX+EC 

260 LET D=FEER (1X+0)2: LET DE=E 
+D* 2506 

270 LET H=FEEKR (1X-1)3 LET HL=L 
+H*2Z23b6 / 
280 60 SUB 330 


270 LET C=C-1: LET BC=C+E*25 


300 IF C<20 THEN 60 TO 200 AS 
Z10 LET E=0:+ LET D=642 LET DE=E 
' +256*D A 


320 LET L=171: LET H=126: LET H 
Leal +H*256 
O 33O 60 SUB 350 
740 RETURN e 
350 LET S=BC 
O 60 LET BC=32 0 
370 LET A=FEEK HL: FOKE DE,Ar L 
ET DE=DE+1: LET HL=HL+11 LET BO= 
O BO-12 1F BO230 THEN GO TO 2370 ( 
780 LET BC=S 
390 RETURN 


400 REM construye tablas de dir 
ecciones de lineas de pantalla 

410 FOR I=G TO 21: FOR J=0 TO 7 b 
420 LET A=16384+ INT. (1/8):2048+ 
CLINT CUB) AD) ACI 

430 LET H=INT (A4/256)1 LET L=A- 
HDD 

440 FOREÉ 220735+148+J,L3 FOKE 232 
add, Hed 

ESO NEXT J2 NEXT 1 


300 REM programa principal 


310 LIST 380 

320 IF INKEY$22"" THEN GO SUE 
100 

3920 60 TO 320 


Estructura BASIC (renumerado y borrado) 


El desarrollo de programas modulares conduce a menudo a situaciones en que 
las subrutinas están enlazadas de tal manera que no queda sitio para líneas extra 
o alteraciones. En un momento como ése querríamos poder renumerar las líneas 
automáticamente o quizá borrar secciones del programa. Estas dos funciones serían 
también útiles cuando intentamos fundir programas por medio de MERGE con el 
fin de crear nuevas subrutinas. Si queremos realizar estas tareas, debemos inspeccionar 
cuidadosamente la forma en que nuestros programas BASIC se almacenan en memoria. 
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Los programas BASIC están almacenados línea por línea en la memoria comen- 
zando en la dirección 23755. Lo primero que se almacena en cada línea es el propio 
número de la línea (16 bits), que ocupa dos posiciones y queda almacenado como 
byte alto seguido de byte bajo. En todas las demás ocasiones, los valores se alma- 
cenan en la forma estándar de Z80, es decir, con formato bajo- -alto, Como ejemplo, 
supongamos que introducimos la línea 10 REM. Si tecleamos 


PRINT PEEK 23755, PEEK 23756 


comprobaremos que en dichas posiciones se encuentran almacenados un O y un 10. 
Si eliminamos la línea 10 e introducimos otra línea numerada al comienzo del pro- 
grama, observaremos que la representación de este nuevo número está almacenado 
de nuevo en 23755 y 23756. Los dos siguientes bytes dan la longitud de la línea 
(podemos utilizarlos para encontrar el comienzo de la siguiente línea de programa 
sin necesidad de recorrer la línea completa). A continuación aparece el texto real 
de la línea BASIC, ocupando cada carácter u orden una posición de memoria. El 
final de línea se marca con CODE 13 (o ENTER). Detrás de cada número dado en 
notación decimal y almacenado como caracteres hay un CODE 14 (o NUMERO: 
véase Manual BASIC del Spectrum) seguido par la traducción binaria del número, 
que ocupa cinco bytes. Los enteros se almacenan de forma sencilla, tal como se ex- 
plica también en el Manual de Spectrum. Utilizando esta información sobre el con- 
tenido de la memoria, podemos escribir un programa que liste programas, incluyendo 
a sí mismo, a base de examinar la memoria. Este tipo de programa autolistante 
(listado 13.8) puede ser de gran ayuda cuando formateamos listados en los cuales 
todas las sentencias comienzan en nueva línea, o cuando deseamos que aparezcan los 
códigos de control. 


Listado 13.8 


| 100 REM programa autolistante ES 
110 LET 27/9081 ELS 
120 LET LINE=236*FEERKR I+FEERE Cl 
+1)2 1F LINE>9999,5 THEN  STOF O 
130 FRINT " "5LINE; 
e 140 LET l=l+25s FRINT FAFER S5F O 


e EERR Ly PEER Ct 
130 LET LENGTH=FEER I+236x*FEER 


160 LET NUM=0: LET I=I-+1 

170 FOR J=1 TO LENGTH: LET I=1+ 
1 

180 LET F=FEER 13 1F Fez AND ON 
Uni=0 THEN LET NUM=1 


O ( 
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] 190 1F F=13 THEN FRINT  FAFER 
y 45F: FRINT 3 60 TO 230 
E 200 1F F=14 THEN LET NUM=64 a 
210 IF NUM>0 THEN FRINTO FAFER 
63F3","32 60 TO 230 
O 220 PRINT OCHR$ F3 e 
230 LET NUM=NUM-1 
| 240 NEXT J 
2 250 LET I=I+13 60 TO 120 


HR > === 3 AS 


Para renumerar líneas, deberemos cambiar los números de línea almacenados en 
memoria. Esto es cierto en tanto en cuanto las líneas no se aparten de una se- 
cuencia numérica. Desgraciadamente debemos tener en cuenta también las instruc- 
ciones como GO TO o GO SUB, etc. Deberemos buscar todas las apariciones 
de GO SUB, GO TO, RESTORE y RUN en el programa y, si se hallan seguidas 
por un entero simple, comprobar cuál es el nuevo número de línea que corresponde. 
En tales casos, deberemos cambiar los caracteres numéricos del número así como la 
representación entera del mismo. 

Si deseamos borrar una serie de líneas, todo lo tenemos que hacer es extender 
la longitud de la línea anterior hasta cubrir las no deseadas, de manera que dicha 
área queda anulada. A continuación se restablece la longitud correcta de la línea 
editando y volviendo a introducir dicha línea. El resto del programa se mueve por 
la memoria colocándose a continuación del nuevo final de la línea. El listado 13.9 
presenta dos subrutinas que realizan estas tareas: la subrutina renumeración se inicia 
con RUN 9900 y la de borrado con RUN 9970. 


Listado 13.9 


A ' E PR 34 

o e 9900 INFUT "Renumerar lineas "i O 
' O0Wi" a "¡UF "Empezando por "¿NEW : 

*"en incrementos de "¿STEP 

Ó 9701 LET X=9900% IF LOW:X OR UR: O 

X OR LOWS=UF THEN 60 TO 9900 2 

9902 IF NEW*X OR NEWX1 OR STEFX 

de. OR STEFX1 THEN. 60 TO 292900 O 

9903 FOKE 23692,-13 FRINT AT 19, 


] Os "“Renumerar lineas "3LOWN:" a "5 


O, UF, "Empezando por "3¿NEW, "en incar 20 
ementos de "¡STEF" "Espere, por f 
avor" 
O 29904 LET START=22370509%2 LET SCREEN OS 


=1043841 LET Hl=256 : 
9903 LET A=START: LET E=SCREEN | 
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9906 LET H=FEEK A: LET L=FEEK (A 
+1) 

9907 FOFE E,H: POKE E+1,L 

9908 LET A=A+21 LET E=B+2 

9909 LET LEN=FEER A+FEEK (A+1)%H 
li LET A=A+LEN+2 S 
9910 TF HXxXHI+L¿X THEN GO TO 990 
5 

9911 LET A=START:+ LET B=SCREEN: 
LET W=NEW 

9912 LET H=FEEK A: LET L=FEEK (A 
+1:) 

9913 LET N=HIx*H+Li¿ IF NZLOW OR N 
UF THEN 60 TO 9918 

9914 IF W>X THEN GO TO 9955 
9915 LET H=INT (W/HI: LET L=W-H 
*HI 

9916 FOFE A,H: FOKE A+1,L 

9917 LET W=W+STEF 

93918 LET A=A+2 

9919 LET LEN=PEEK A+FEEK (A+1)%H 
Ar LET A=A+LEN+2 

9720 IF NX THEN -G0 TO 9912 
9921 LET A=START: LET E=SCREEN 
922 LET H=FEEK Ar LET L=FEEK (A 
+1): LET NN=FEEK BXHI+FEEK (E+1) 
23 LET N=Hx*HI+Lií IF N=X THEN 
STOF 

9924 FRINT AT 21,053"Comprobando 
"3NNi¿"=nueva linea "; 

9723 LET A=A+Z23 LET W=A+2 

9926 LET LEN=FEEK A+FEER (A+1)%H 
Il: LET A=A+LEN+2 

9927 LET T=FEEK W 

93928 IF T=CODE (" GO TO "> OR Te 
CODE (" G0 SUE ") OR T=CODE (" R 
UN ") OR T=CODE (" RESTORE ")> TH 
EN 60 SUE 99.32 

9929 1F T=14 THEN. LET W=W+3 
9930 LET WeW+1: 1F WiA THEN GO 
TO 99227 

9931 LET B=B+2: G0 TO 9922 

9932 LET V=W+12 LET As="" 

903 LET S=FEEK Vi 1F 52332 AND 
36514 AND NOT (S>=48 AND S%=57) 


O 


O 


O 


THEN RETURN 

9934 1F 52314 THEN  LET V=V+1:2 L 
ET A$=Aé$+CHR$ Si: 60 TO 99733 

9935 LET V=VW+3i LET AT=FEEK V+FE 
EEK (V+1)*H1 

936 IF ATALOW OR AT+UF THEN RE 

TURN 

3937 GO SUE 99431 LET H=INT (NAT 
HIS LET L=NAT-Hx*HI1 

9938 LET Bé$=S5TR$ NAT: 1F LEN A$< 
"LEN B$ THEN GO SUE 9951 

9939 PDKHE ViLs FOKE V+1,H 

9940 FOR I=1 TO LEN Es 

9941 FOFE W+I,CODE E$(1): NEXT 1 

9942 RETURN 

3943 LET C=START: LET D=SCREEN 
9944 LET H=FEEKE Di LET L=FEEK (D 
+1) 

9943 LET E=FEEK CXxHI+FEEK (C0+1) 
9946 1F Es=X THEN LET NAT=0%* RE 

TURN 

9947 1F HxXHI+L=AT THEN  LET NAT= 
Ex RETURN 

9948 LET C=C+212 LET D=D-+2 

9949 LET LEN=FEEKE C+FEEE (0+1)+H 
Ti LET C=C+LEN+Z 

9930 GO TO 9944 

9931 LET DIFF=LEN A$S-LEN B$ 

9032 1F DIFF:0 THEN FOR I=1 TO 
DIFF: LET Es=B$+" "¿2 NEXT Il: RET 
URN 

9933 FPRINT AT 16,053"No hay sitio 
en "¡3CHR$ TiAT, "en la linea "i 
Ni", ", "Teclea EDIT y pon "i-DIFF 
" espaciols)”","a la etiqueta, 1 
uego reejecuta", "el programa." 
9934 LET H=INT (NN/HID:* FOKE 236 
26, Hi FOKE 2346423, NN—H>HI 

99355 LET A=S5TART: LET E=SCREEN 
9736 LET OH=FEEK Ar LET L=FEEE CA 

+1) 

9937 IF HxXHI+L=X THEN  FRINT AT 

0,03 "Renumeracion abortada": STO 

FP 

9958 FOKFE A, FEEE Ez FOKE A+1, FEE 


¡o 
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E (B+1) 

9939 LET A=zA+2i4 LET BsE+r2 

9960 LET len=FEERX A+FEER  (A+1)*H 
li LET A=A+LEN+2 

9961 60 TO 9956 

9970 INFUT "Borrar lineas "LOW: 
Da "UF: IF LOW<2 OR LOW3=0UF TH 
EN GO TO 9970 

9971 FRINT AT 20,05; "Borrar linea 
s "¡LOWÍ" a "3UF, "Espere, por fa 
vor" 

9972 LET START=23700%8 LET SCREEN 
=163841 LET HI=256 

9973 LET A=START + LET BR=SCREEN 
9974 LET H=PEEK Ar LET L=FEEKE CA 
+1) 

9973 1F H*xHI+Le=lLOW THEN  FRINT 
AT 0,03 "For favor, teclee la lin 
ea ",LON-15" REM y reejecute el 
programa" STOP 

9976 LET H=FEEK Ar LET L=FEEK CA 
+1) 

9977 IF HXHI+Lo=LOW THEN 60 TO 
9981 

9978 LET NN=H*HTI+La LETOLAST=As 
LET A=A+Z 

9979 LET LEN=FEER A+FEEK (A+1)*H 
li: LET A=A+LEN+2 

9780 G0 TO 2974 

9981 LET LAST=LAST+2 

9982 LET LONG=FEEK LAST+FEEK (LA 
ST+1)*H1 

93983 1F HxHI+LSUF THEN FRINT AT 
0,0; "Ninguna linea en el margen 
dado": STOF 

9984 LET H=FEEK As LET L=FEEK (A 
+1): IF HxHI+LOUF THEN GO TO 99 
0 

9983 LET A=A+2i LET LONG=LONG+2 
97986 LET LEN=FEEK A+FEEKRK  (A+1) 4H 
Il: LET A=A+LEN+21 LET L.ONG=LONG+ 
LEN+2 

9987 IF HxXHI+L “UF THEN GO TO 9 
904 

9970 LET H=INT C(LONG/HI4 FOKE L 


O 


O 


AST+1,H% FOKEÉ LAST, LONG-Hx*HI 


| 
| | 
Go. 9995 LET H=INT (NN/HI)1 FOKE 234 LO 
| 26r,h: FOKE 23625, NIN—-Hx*HI 
9999 FRINT AT 0,05"Teclee EDIT y 
ENTER"4 STOF 
E ¿e STOP des 


Ejercicio 13.4 


Escriba una subrutina que busque en la memoria BASIC y encuentre una se- 
cuencia determinada de códigos CODE. Utilice el método mostrado en el programa 
de borrado anterior para asignar la variable del sistema E PPC (que controla el 
cursor de edición: véase Manual de programación BASIC de Spectrum) al número 
de línea en que se encuentra la sentencia. 


Estructura BASIC (programas eficientes) 


Al programar en BASIC podemos utilizar los conocimientos adquiridos acerca 
de la forma de almacenamiento de las líneas para conseguir que nuestros programas 
sean más eficientes, tanto en términos de espacio utilizado como en velocidad de 
ejecución. Cada vez que aparece en una línea de programa un número de forma ex- 
plícita, el mismo viene seguido por seis bytes de códigos numéricos, de tal forma 
que no se necesite transformar la cadena de dígitos en su forma binaria cada vez 
que se ejecute la línea. En su lugar podemos asignar el número requerido a una 
variable, y utilizar el nombre de la variable en lugar de su valor de manera que 
el espacio necesario será ahora únicamente el número de bytes que contenga el nom- 
bre de la variable. Para asignar el valor deberemos utilizar tres códigos extra, “:”, 
“LET” y “=”, así como el nombre de la variable, y para acceder al valor debere- 
mos utilizar dicho nombre. Si el valor se va a utilizar con cierta frecuencia, el ahorro 
de espacio puede ser considerable. Observemos las dos primeras sentencias del ejemplo 
siguiente: 


10 PRINT AT 1,1 

20 LET A=1:PRINT AT A,A 
30 PRINT AT 1,1 

40 PRINT AT A,A 


El texto BASIC de la línea 10 necesita 17 bytes de almacenamiento: “PRINT”, 
“AT? “1 :14,0:0,1.:0,0:", “1”.14-0,0,L.:0,/0: 

Por el contrario, la línea 20 necesita únicamente 16 bytes: “LET”, “A”, “=>”, “1”, 
1400150, 08 PRINTS AT HAS A 

Observamos que la segunda línea ocupa menos espacio que la primera. Sin em- 
bargo, la segunda línea utiliza la variable A, la cual ha de almacenarse en otro lugar 
ocupando seis bytes de memoria. Si la sentencia debe utilizarse varias veces, como 
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sucede en las líneas 30 y 40, encontraremos que la línea 30 tiene una longitud de 
17 bytes en tanto que la línea 40 ocupa únicamente 5 bytes. Así pues, si se va a 
utilizar un valor numérico más de dos veces en un programa, conviene almacenarlo 
como variable para ahorrar espacio. 

También podemos ahorrar espacio y aumentar la velocidad empaquetando el 
mayor número posible de sentencias en una línea, aunque como contrapartida per- 
demos legibilidad en el programa. Cada nueva línea requiere cinco bytes de memoria: 
uno para CODE 13 al final de la línea anterior, dos para el número de la nueva línea 
y dos para su longitud. Sin embargo un símbolo dos puntos como separación de sen- 
tencias necesita únicamente un byte: la cantidad de espacio ahorrado puede ser con- 
siderable. Por ejemplo, supongamos un programa con 90 sentencias (bastante peque- 
ño como promedio): si las sentencias están separadas inicialmente línea a línea y las 
reescribimos de manera que ocupamos tres sentencias por línea, habremos ahorrado 
60*(5 — 1) = 240 bytes. En un programa grande es bastante fácil ahorrar más de 1K 
de memoria de esta forma. La utilización de menos líneas hace asimismo a la máquina 
ejecutar con mayor facilidad instrucciones del tipo GO TO o GO SUB, ya que le 
lleva menos tiempo el rastreo de la línea de destino. Se consigue la máxima eficiencia 
colocando todas las subrutinas y funciones cerca del comienzo del programa, ordenadas 
de modo que la más utilizada vaya en primer lugar. A menos que se vaya a realizar 
un número realmente grande llamadas a una subrutina, generalmente es más con- 
veniente almacenarlas en un orden lógico. 


Ejercicio 13.5 


Reescriba las subrutinas gráficas y/o los programas de juego para utilizar menos 
espacio y, a ser posible, ejecutarse con mayor rapidez. 


Display sincronizado 


Se puede conseguir un interesante efecto BORDER utilizando el comando PAUSE 
al realizar dibujos en el Spectrum. Una imagen de televisión se dibuja completa- 
mente cada 1/50 de segundo (1/60 en Estados Unidos) y el comando PAUSE utiliza 
múltiplos de este mismo intervalo de tiempo. La orden PAUSE 1 no siempre retrasa 
la ejecución durante 1/50 de segundo: de hecho, PAUSE permanece únicamente hasta 
el comienzo de la siguiente imagen. Este hecho proporciona un método de comenzar 
instrucciones en un momento determinado con respecto al refresco de la pantalla. 
Si cambiamos el color BORDER durante el dibujo de una escena, en la misma 
imagen se coloreará únicamente la parte superior del color asignado a BORDER 
mientras que el resto permanecerá de otro color. Obviamente, podemos utilizar 
PAUSE para esperar al comienzo del refresco de la nueva imagen y repetir el pro- 
ceso. El resultado es un dibujo estático con un BORDER de distintos colores. Hemos 
observado este efecto al ejecutar sentencias SAVE y LOAD, las cuales utilizan una 
subrutina en código máquina que realiza un proceso equivalente, en el cual se inter- 
cambian rojo/cian y amarillo/azul en la parte externa (BORDER) de la pantalla. 
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Por ejemplo, consideremos este comienzo de un programa largo: 


1GO TO 10 
2 PAUSE 1:BORDER 7:BORDER 2:BORDER 6:BORDER 4: 
BORDER 5:BORDER 1:BORDER 3:BORDER 7:GO TO 2 


El programa finaliza con un comando GO TO 2 que produce un efecto de arco 
iris en el BORDER tras la construcción del diagrama. Obsérvese que, a menos que 
la línea se coloque cerca del comienzo del programa, la sentencia GO TO llevará 
demasiado tiempo para ejecutarse, y perderemos el comienzo de la siguiente imagen. 


Ejercicio 13.6 


Escriba un programa de una sola línea que cambie entre colores rojo y cian en 
BORDER sin utilizar PAUSE. Inserte símbolos “:” extra (no otras sentencias, sim- 
plemente los dos puntos) entre las sentencias hasta conseguir que el tiempo de ejecu- 
ción de la línea sea exactamente 1/50 de segundo: es decir, que los colores per- 
manezcan estacionarios. (Clave: cuéntese un comando BORDER como 10, un GO 
TO como 13 y un dos puntos como 1; intente que la suma total del valor de la 
línea, contada de esa forma, sea alrededor de 160). 


Programas completos 


I. Listado 13.1. Datos necesarios: 10 conjuntos de' pares de coordenadas X/Y. 
La pantalla mostrará una tabla puesta a cero de esos valores, seguida de 
“Fin”. Disponemos de un cursor, que apunta a la primera fila, y puede mo- 
verse con “6” hacia abajo y “7” hacia arriba (en mayúsculas). Una vez que 
esté en la fila deseada, teclee “EDIT” (“1” mayúscula) y la máquina pre- 
guntará las coordenadas X/Y de pixel para dicha entrada de la tabla. Cuando 
haya terminado, mueva el cursor hasta “Fin”; pulse a continuación EDIT 
y teclee “s”(sí). El programa dibujará a continuación un polígono uniendo 
los 10 puntos de coordenadas. 

IL. Listado 13.2. Datos necesarios: entrada numérica para el eventual sistema 
de fichero. Teclee cualquier número entre “1” y “6”. Si utiliza “5” 6 “6” la 
máquina pregunta si realmente desea realizar la operación: teclee “s”(sí) o 
“n”(no). El programa termina con BREAK. 

III. Listado 13.3. No necesita datos: el programa termina con BREAK. 

IV. Listado 13.4. Pulse cualquier tecla cuando se le solicite. No necesita datos: 
el programa termina con BREAK. 

V. Listado 13.5. Tras escuchar el sonido (BEEP) el programa solicita cinco di- 
bujos para ser cargados desde cinta. Teclee “1”, “2”, “3”, “4” 6 “5” para presen- 
tación del encuadre correspondiente; “m” para “cine” y “s” para detener el 
movimiento. 
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VI. Listado 13.6. Cuando la pantalla esté llena, deje pulsada cualquier tecla para 
que el scroll continúe. Utilice BREAK para detener. 
VII. Listado 13.7 Versión BASIC de VI. ¡Muy lento! 
VIII. Listado 13.8. No necesita datos. 
IX. Listados 13.7 y 13.9. Teclee RUN 9900 para renumerar y RUN 9970 para 
borrar. Ejemplo: editar listado 13.7 p 


RUN 9900 
Renumerar líneas 10 a 30 
Empezando por 60 en incrementos de 5 


Ahora liste el programa (LIST) para comprobar los cambios 


RUN 9970 
Borrar líneas 60 a 99 


Atención: debe existir al menos una línea sobre la sección a borrar 


RUN 9970 

Borrar líneas 65 a 99 
EDIT (“1” en mayúsculas) 
LIST 


14 


Un ejemplo detallado 
de un videojuego 


En este capítulo exploraremos los límites de la programación BASIC para realizar 
videojuegos animados. Nuestra experiencia indica que los juegos escritos en BASIC 
son caros, y en general el interés de los jugadores decae rápidamente. En el mo- 
mento que los usuarios alcanzan resultados razonables con sus propios programas, 
prefieren escribirlos ellos mismos, invirtiendo su dinero exclusivamente en juegos 
sofisticados realizados en código máquina. El listado 14.1 es un ejemplo del tipo de 
juego que puede aspirar a escribir un programador BASIC muy competente sin echar 
mano a rutinas en código máquina. El juego DEFENSA DE LA ISLA (sólo para 
ordenadores de 48K) es un típico juego de “marcianitos”, pero las técnicas que dis- 
cutimos aquí pueden aplicarse igualmente a juegos de “raqueta y pelota” (por ejemplo, 
TENIS) o a juegos “tácticos” (por ejemplo, COMECOCOS). 


Presentación del juego 


Hemos dibujado en la pantalla una escena que consta de una isla verde con una 
pequeña colina, mar azul oscuro, y cielo azul claro con un sol amarillo y una nube 
blanca. En la isla hay tres árboles, así como una zona asfaltada de color azul claro 
en la cual hemos colocado una tienda. El juego comienza con un hombre que sale 
de la tienda y se dirige a un emplazamiento antiaéreo rodeado de sacos de arenas, 
en el que deposita 20 proyectiles, regresando a continuación a la tienda. En ese 
momento, aparecen aviones enemigos saliendo del sol, que vuelan sobre la colina y 
bombardean el campo. Nuestro objetivo es detener el ataque disparando a los aviones. 
Por cada avión que ataca pueden suceder dos cosas: o bien el aeroplano es derribado, 
o consigue un impacto en nuestro campo. Cada impacto disminuye el tamaño de 
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la tienda. Si el enemigo consigue arrojar 14 bombas sobre la tienda, ésta desaparece, 
y el siguiente avión bombardea nuestra arma antiaérea. Con la destrucción del an- 
tiaéreo, el borde de la pantalla cambia de color repetidamente, y el juego reco- 
mienza. Después del bombardeo, cada avión vuela a través de la nube, pasa por 
encima del antiaéreo y abandona la escena por la izquierda. Cada 20 aviones recibimos 
un nuevo suministro de munición. Si perdemos 3 antiaéreos, la-pantalla se vuelve 
roja y el juego finaliza, pudiendo recomenzar desde el principio. 

El antiaéreo tiene siete posibles posiciones de disparo, accesibles por las teclas 
“1” a “7”, y dispara un misil cuando se pulsa “x”. Debido a las restricciones de 
velocidad se permite un solo avión y un solo misil en pantalla en cada momento. 

La mejor manera de comprender el resto de las explicaciones de este capítulo 
es cargar y ejecutar el listado 14.1 que va incluido en la cinta. El programa solicitará 
que se cargue (LOAD) un conjunto de caracteres especiales, llamado “video” (para 
dibujar el avión, la tienda, el hombre, etc.), y a continuación “escena” (para preparar 
el fondo); estos dos ficheros deberán cargarse antes de comenzar el juego. El listado 
está comentado con profusión, de manera que no es necesario insistir mucho aquí 
en los detalles. En su lugar, estudiaremos un sistema general de construcción de este 
tipo de juegos, y describiremos métodos para resolver los problemas típicos que aparecen 
al prepararlos. 


Listado 14.1 


A , E — => = ——Á 


O 


S REM Inicializa las rutinas DES 

para permitir el uso del juego d 
e —caracteres alternativo 
+ € 10 CLEAR 622943 INK Ox FAFER 7 (O 
z BORDER 7: FLASH 0 

20 DIM S(6): FOR I=1 TO 6: REA 
Si D S(1): NEXT 1 O 
: 30 DATA 153460, 62039, 62807,6337 
: Sr 04347, 64848 
O 40 LET set=50% LET S=1li GO SUE O 
set: 60 TO 200 


SO REM juego/cambio al juego S 
51 REM Datos de entrada $ 
O 60 LET HI=INT (S5(S)/236)2 LET 


LO=S (5) -HI*256 O 
70 PORKE 23606,L0: FOKE 23607, H 

O | Il: RETURN o 
| 79 REM Carga los caracteres de 

O: l juego 2 e 
| 
| 


80 REM cargacaracteres 


0 LET N$="videojuego" 

100 LET S=2 

110 INFUT (" CARGANDO "+N$+CH 
R$ 6+"Arranca el casete y da ENT 
ER.")35 LINE X$ 

120 LOAD N$ CODE (S(S)+256),768 
z RETURN 


200 REM programa principal 

209 REM Inicializa los punteros 
de las rutinas 

210 LET charload=80: LET load="4 
6001 LET create=5000: LET credit 
=50 3001 LET char=5600 

220 LET keyboard=3001: LET camp. 
7001 LET status=B8001 LET plane=9 
80 

230 LET reload=1500: LEÉT ammo=1 
2001 LET missile=22001: LET explo 
de=2500 

240 LET bombcamp=3500%+ LET bomb 
gun=2000: LET hiscore=7001 LET 
HSC=0 

249 REM Carga el juego de carac 
teres si en necesario 

250 IF FEEK 462303%<+110 THEN 60 
SUB charload 

258 REM Carga el escenario e im 
prime los nombres 

260 GO SUE loads 60 SUB create: 
GO SUB credit 

269 REM Hace una copia de los a 
tributos de color de la pantalla 
270 DIM AC704)% FOR I=1 TO 704: 
LET ACID=FEEK (223027+1)1 NEXT 1 
279 REM Frepara los literales p 
ara el uso de las rutinas de pan 
talla 

280 LET S$="  FUNTOS IET 
Eg=" BASES id 

290 FOR l=1 TO 4: LET S$=5$+CHR 
$ 82 LET ES=E$+CHRK$ 81 NEXT. .1 
300 DIM N$(9): LET Né=" 


O 


o | 


0) 
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OS 
xo 


309 REM Comienzo del juego 

210 BRIGHT 1: FAFER 8: INK 8: O 
VER O 

219 REM Inicializa la puntuacio 
n y el no. de bases 

20 LET SC=O0% LET Es=%w GO SUE 
status 

229 REM Quita la municion reman 
ente y el parpadeo del antiaereo 
2350 FRINT AT 17,53" "2 FRINTA 
Tri E PRENT AD LDs cae 
339 REM Restablece los atributo 
s de color 

340 FOR I=1 TO 7041 FOKE 22527+ 
T,ACT): NEXT 1 

249 REM renueva la puntuacion y 

la municion 

2300 60 SUB camp: GO SUB status: 

GO SUB reload 

3398 REM Frepara el bucle princi 
pal del programa 

260 LET p=planes LET m=missile: 

LET k=keyboard 

269 REM Comienza una oleada de 
20 aviones 

370 LET AR=ZO 

279 REM Comienzo del bucle prin 
cipal 

280 60 SUE p: OVER l: GO SUE m: 

OVER Or GO SUE k 

289 REM Sale del bucle 

290 IF DEAD THEN GO TO 420 

299 REM Si quedan aviones sigue 

en el bucle 

400 IF ARO THEN GO TO 2380 

409 REM Si no quedan aviones em 
pieza una nueva oleada . 

410 GO SUB reloadsi 60 TO 370 


419 REM Si quedan bases usa la 
siguiente 

420 INE 02 FRINT AT 12,03" de 
2 INK Bi IF BS:1 THEN LET ES=ES 
“11 60. 10-390 


O 


429 REM El juego ha terminado, 
parpadea el borde 

430 OVER lí FOR I=1 TO 22: BEEF 
0, 003%, RND*ZO-151 EORDER RND*7 
440 FOR J=1 TO 23 FLOT O, Cez-I) 
8: DRAW  ERIGHT 13 FAFER 25 INK 
2312559, 0 

4590 NEXT Ji NEXT liz BORDER 7 
460 FOR l=1 TO 5: GO SUE mí NEX 
T Iz OVER O 


469 REM Comprueba si has alcanz 
ado la maxima puntuacion y recom 
lenza el juego 

470 IF SC:HSC THEN GO SUE hisc 
ore 

480 FAUSE 2001 60 TO 210 


300 REM teclado 

309 REM Si no se aprieta una te 
cla en el bucle se pierde la opo 
rtunicdacd 

310 LET A$=INKEY$: IF A$="" THE 
N RETURN 

318 REM La tecla de fuego es ap 
retadas 

319 REM Si quedan misiles y hay 
uno preparado se dispara 

320 1F Agf="X" OR A$="x" THEN —I 
F m=missile AND NOT OUT THEN LE 
To mefi LET Mé=F$: GO SUB ammo: 0 
VER 1: 60 SUB ms OVER O: GO TO 5 
30 

529 REM Si la tecla apretada no 
esta entre 1 0 7 la ignora 

530 IF A$:"7" OR As$2"1%" THEN OR 
ETURN 

338 REM Calcula que rutina es u 
sada si el misil es disparado en 
esta direccion 

939 REM Fija el literal usado p 
or el misil y cambia la direccio 
n de tiro 

340 LET f=2000+10%*VAL Aé: LET F 
HECHAS (B3I+VAL A$) 


O 


O 


de 


de 
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330 PRINT AT 16,353F3$ 
360 RETURN 


700 REM campamento 

709 REM Imprime el tirador y la 
tienda . 
710 FRINT AT 17,33"2"2 BRIGHT O 
: BORDER 72 FRINT AT 16,235 "vw": 
FRINT AT 17,234 "xy" BRIGHT 1 
719 REM Ulsa la rutina del tecla 
do para la posicion de tiro 

720 LET YT=14i LET HIT=0%* LET D 
EAD=04 LET A$="3"4 GO TO 540 


800 REM estado 

309 REM Usa el juego de caracte 
res 1 para imprimir la puntuacio 
ny las bases 

810 LET S=14 G0 SUE set 

B20 FRINT AT 21,015%81" "35C,B%:; 
ES 
Bo LET S=21 60 SUB set 

840 RETURN 


9380 REM avión 

989 REM Fija el puntero de bomb 
ardeo al principio de la cascada 
990 FRINT AT 13,57" "1 FRINT AT 
10443" "Ups PRINT-ATdZ7 39 "2" UL 
ET bombgun=3000 

999 REM Cambia el puntero, si e 
s 1000 se lanza un avion 

1000 LET p=991+I1NT” (RND*11)13 RET 
URIN 

1009 REM Lanza el avion, carga l 
a bomba 

1010 LET AR=AR-=14 LET p=1020% LE 
T BOMB=1%* RETURN 

1019 REM Mueve el avion a la der 
echa 

1020 FRINT AT RiCi" 1J"4 LET C=C 
+13 IF C210 THEN RETURN 

1029 REM Si el avion esta a 10 C 
olummas de la izquierda mueve el 
puntero hacia abajo en la casca 


O 


da 

1030 LET p=1040 

1039 REM Ficado diagonal 

1040 FRINT AT Ru-1,C05" "ii FRINTOA 

TR,E5" Ns: LET R=R+11: LET C=C+1 

¿ FRINT AT Ri¿Ci%n": 1F C220 THEN 
RETURN 

1049 REM Si esta en la columna 2 

Ó mueve el puntero y borra el «av 

ion a la izquierda 

1050 LET p=1060: FRINT AT R-u1,03 

10359 REM Llama a la cascada de b 

ombas las 3 veces que se lisa est 

a seccion 

1060 60 SUE bombcamp: FRINT AT KR 

1.63% TJ LET CGsC+iia IF ECx29 THE 

N RETURN 

1069 REM Mueve el puntero hacia 

abajo, comienza la curva hacia l 

áa nube 

1070 LET p=1080 

1080 FRINT AT RiCi"o o "4 LET R=R- 

1: LET C=C+12 PRINT AT Ri¿C5"KL": 
IF 0228 THEN RETURN 

1090 LET p=1100: FRINT AT RK,Cj" 

UN ILET C=C+1 

1100 FRINT AT R+1,C4" "ii FRINTOA 

TR Ci"o"s LET O R=R=1% PRINT AT OR 

s.3"0": IF R>7 THEN RETURN 

1110 LET p=11203 FPRINT AT R+1,(; 

11:20 PRINT AT RiCs"o o "4 LET R=R- 

li LET C=C-12 FRINT AT R,Ci"kl": 
IF R:3 THEN RETURN 

1130 LET n=1140 

1139 REM Vuela en la nube, no es 
visible 

1140 FRINT AT RiCi"ij "as LET C=C 

“li 1F Cold THEN RETURN 

11390 LET p=11604+ FRINT AT R,Cj" 


1139 REM Vuela hacia el antiaere 
le) 


11460 FRINT AT RC" o": LET R=R+1 


O 


O 
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¿ LET C=C-uldi PFRINT AT Ri¿CiUM o": 

FRINT AT R+1,C3"m"1* 1F Rió THEN 
RETURN 

1170 LET p=1180 

1180 FRINT AT RiCi" "a LET O R=R+1 
s PRINT AT Ri¡C5"F ": PRINT AT R+ 
1,Ci"p"i 1F RiG THEN RETURN 
118% REM Comprueba y borra algun 
posible misil perdido 

1190 LET p=1200%: 1F X2:29 OR Y237 
THEN FRINT AT 7,93" " 

1200 FRINT AT R,C5" "2 LET R=R+1 
s LET C=C-1:8 PRINT AT Ri,C3"M o": 

FRINT AT R+1,C3"m"w2 1F RK211 THEN 
RETURN 

1210 LET p=1220: FRINT AT R,C3" 
"3 LET R=R+1 

1219 REM Ultima seccion del vuel 

O, llama cada vez a la cascada d 

e bombardeo 

1220 GO SUB bombgun: LET C=C-1: 

FRINT AT Ri1C53"ij "se IF C20 THEN 
RETURN 

1229 REM Avion saliendo de panta 
lla 

12:30 LET p=1240: FRINT AT RiC5"j3 
"3 RETURN 

1239 REM Fija la fila del avion 

a 2 y el puntero al comienzo de 
la cascada 

1240 FRINT AT RiC5" "a LET R=zs 

LET p=plane 

12530 RETURN 


15300 REM recarga 

13509 REM Si el campamento es des 
truido no renueva la municion 
1510 IF HIT. THEN RETURN 

13519 REM Animacion de la figura 
13520 BRIGHT O: LET R=18 

1529 REM Camina de la tienda a 1 
os arboles 

15730 FOR C=24 TO 19 STEF -1l3 FRI 
NT AT R¿C5"S"2 FRINT AT R+1,C03"sS 
"s REEF 0,01,-15: FAUSE 3 


O 


'O 


O 


O 


1340 FRINT AT Ri¿C5"R"s FRINT AT 

R+1,C3"r" FAUSE 3 

1550 FRINT AT R,C53" "2 PRINT AT 

Ri 4 NEXT E 

13559 REM Usa sobreimpresion para 
no borrar los arboles 

1360 OVER 1: FRINT AT R,183"5": 

FRINT AT R+1,185"s"2 BEEF 0,01,- 
15: PAUSE 51 FRINT AT R,183"S": 

FRINT AT R+1,18;"s" 

13570 FRINT AT Ri,185"R"i FRINT AT 
R+1,1893"r"14 PAUSE Zi FRINT AT OR 
sJ183"R"a FRINT AT R+1,183"r" 
1579 REM Hace ruidos al desapare 
cer la figura tras los arboles 
1580 FOR J=1 TO 2: BEEF 0,01,-15 
: FAUSE 111 NEXT J 

1589 REM Muestra el pie saliendo 
tras el arbol 

1590 FRINT AT R+1,1593"s"s BEEF O 
01,15: FAUSE 51 FRINT AT R+1,1 

5 - 

1600 FRINT AT R+1,155"r'": FALSE 
Si FRINTOAT R+1,1553"r" 

15609 REM Muestra la figura compl 
eta 

1610 FRINT AT Ri143"S5"3 PRINT AT 
R+1,143"s5": BEEF 0.01,-15: FAUS 

E 3%: FRINT AT Ri143"S"2 FRINT AT 
R+1,14:1"s5" 

1620 FRINT AT Ri143"R"2 FRINT AT 
R+1,145"r": PAUSE Zi: FRINT AT OR 
143 "KR" FRINT AT R+1,1453"r" 
1629 REM Camina del arbol a la h 
ierba en la columna 8 

16730 OVER O2 FOR C=123 TO Q STEF 
11 BRIGHT (C=8) 

1440 FRINT AT RiC5"S"1 FRINT AT 
R+1,C03"s"12 BEEF 0.01,-139: FAUSE 
E 

16530 FRINT AT R,C53"R"s FRINT AT 
R+1,C03"r"s PAUSE 3 

1660 FRINT AT RiC3" "s FRINT AT 
Reg" “Us MEXT E 

1569 REM Imprime la figura en la 


de. 
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O 


O 


columna 7 lista para recargar m 
unicion 
15670 FRINT AT R,C3"R"i FRINT AT 
R+1 á O Mp 
1679 REM Recarga municion con ef 
ectos de sonido - 
15480 FOR G=uó6 TO S STEF 11 FOR H 
=18 TO 17 STEF lí FOR N=2 TO 9 
1690 FRINT AT H,63 INE CF N$(N) a: 
BEEF- 0,0%, H+G-N 
1700 NEXT Ni NEXT Hs NEXT G 
1709 REM Quita la figura de la c 
olumma 7 
1710 FRINT ATIR,C5" ": FRINT AT 
R+1,05" ” 
1719 REM Reinicializa la impresi 
on de municion 
1720 LET N=8: LET OUT=0% LET H=1 
Ti LET Gué 
1729 REM Camina hacia el arbol 
1730 FOR C=8 TO 133 BRIGHT (C0=8) 
1740 FRINT AT Ri034")"2 FRINT AT 
R+1,03"+% 2 BEEF 0,01, 155 FAUSE 
e 
1730 ERINT AT R,C5"("3 FRINT AT 
R+1,03"%"3 PAUSE -.3 
1760 FRINT AT RiC5" "i EFRINT AT 
R+*1i405" "e NEXT € 
1769 REM Sobreimpresiona la figu 
ra en los arboles 
1770 OVER 1: FRINT AT Ri143")": 
FRINT AT R+1,145 "+": BEEF 0,01,- 
15: FAUSE Si: FRINT AT Ry143")%s5 
FRINT AT R+1,143"+" 
1780 FRINT AT R,145" ("3 FRINT AT 
R+1,145"x"2 FAUSE 3: FRINT ATOR 
2145" ("5 FRINT AT R+1,143"x" 
1789 REM Sobreimpresiona las pie 
rnas en el arbol 
1790 FRINT AT R+1,1595 "+": REEF O 
01,159: FAUSE 5: FRINT AT R+1,1 
Es Y 
1800 FRINT AT R+1,1595"%*", FAUSE 
da FRINTOAT R+1,1503Ux" 
1809 REM Hace ruidos 


1810 FOR J=1 TO 21 BEEF 0,.01,-15 
¿ FAUSE 11: NEXT J 

1819 REM Sobreimpresiona al sali 
r la figura del arbol 

1820 PRINT AT Ri1853%)": FRINT AT 
R+1,195"+": BEEP 0.01,-1%: PAUS 
ES: FRINT AT R,1853")%: FRINT AT 
R+1,1893 "+" 

1830 FRINT AT R,183" ("3 FRINT AT 
R+1,183"*":2 FAUSE Zi FRINT AT OR 
¿18707 ERENTOAT +1, 1905090 : 
1839 REM Camina del arbol a la t 
lenda 

1940 OVER Or FOR C=19 TO 243 FRI 
NT AT Ri,053")% FRINT AT R+1,C5"+ 
"a BEEF 0.0115: FAUSE 3 

1850 FRINT AT RiC5" (Ci FRINT AT 

R+1,03"%": FAUSE 3 

1860 FRINT AT RC" "14 FRINT AT 

R+la Ls" "re NEXTOE 

1869 REM Reinicializa las variab 
les de fila y columna para usarl 
as con la rutina del avion 

1870 LET C=0%2 LET Rei ERIGHT 1 

1880 RETLIRN 


1900 REM municion/misil 

1902 REM Datos de salida OUT 
1909 REM Quita una unidad de la 
mmicion y comprueba sí se ha ac 
abado 

1910 FRINT AT H,GiN$(N): LET ON=N 
—1 

1920 IF N=0 THEN LET N=8% LET OH 
=H+*Jp 1 H=19 THEN. LET H=17: LE 
TGG-ls IF G=4 THEN LET OUT=1 
1930 RETURN 


2000 REM direccion del misil 
2009 REM Borra el misil antiguo 

por sobreimpresion y calcula la 
nueva posicion 

2010 PFRINT AT Y, XiM8: LET Y=Y-Z3x 
LET X=Xx 2 60 TO 2100 

SO20 PFRINT AT Y, X3M$: LET YuYe3a 
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LET X=X*X-=1s 60 TO 2100 

2030 PFRINT AT Y, X3MS8: LET Y=Y-Zx 

GO TO 2100 
2040 FRINT AT Y, XiMés LET Y=Y-Zs 

LET X=X+*18 60 TO 2100 DE 
2030 FRINT AT Y, X3 M6: LET YueY- 33 

LET X=X+21 60 TO 2100 
2060 FRINT AT Y,XiM$: LET Y=Y-2:1 1 
LET X=Xx+z24 60 TO 2100 
2070 PRINT AT Y, XiMés LET Y=Y-25 E 
LET X=X+Z1 GO TO 2100 ¡| Q 
2098 REM Si el misil esta en la | 
misma columa que el avion compr 
ueba la fila 
2099 REM Si el misil esta sufici 
entemente cerca explota y permit O 
ecotro disparo 

2100 1F X= THEN IF ARS (Y-R)<2 

THEN 60 SUE explodes LET m=mis 'd 
sile: 60 TO m 


2109 REM Si el misil esta fuera ( 
de pantalla permite otro disparo 
2110 1F X20 OR Y20 THEN LET m=m 
issiler GO TO m : 


2119 REM Imprime el misil en la 
nueva posicion 
2120 FRINT AT Y, X3Mé: RETURN 


2200 REM misil/listo para tirar 
2zló LET X= LET Yu=1l6 
ao RETURN 


2300 REM explosion 

2308 REM El misil alcanza el avi 
on y suma puntos 

2009 REM Comprueba si la explosil 
on ha sido en la nube o en el ci 
elo 

2510 OVER O: LET SKHY=(RXi3 OR Cx 
16): 1F NOT SEY THEN  FRINT ATOR 
o " 

2519 REM Farpadeo y ruido, sima 

puntos 


O 


O 


2520 INE 2: IF SEY THEN  FRINT A 

A e e 

25950 FOR I=1 TO %: BEEF 0.01, 1-1 

Oz REEF 0.01,-I-10: NEXT l2 LET 

SC=SC+1 

2039 REM Si la explosion es visi 

ble, imprime una nube de restos 

23940 IF SEY THEN  FRINT AT R-1,C 
lp oB"i FRINT AT RiCuii"$!12% 

FRINT AT R+1,C-15 "23" 

2349 REM Ruido agudo 

23990 FOR l=-4 TO 4: REEF 0.002, ( 
SOFARS 1): NEXT 1 

2009 REM Borra a explosion 

2560 INE O: IF SEY THEN  FRINT A 

EF Rip Ein " FRINT AT OR,C-u13 
n ": ERINT AT R+1,C-13" y 
2069 REM Imprime la linea de pun 
tuacion, reestablece los puntero 
s del avion y el misil 

2570 INK 8: GO SUE status LET om 
=missiler LET p=plane 

25080 LET R=zi LET C=0 

2570 RETURN 


2000 REM bombardeo del antiaereo 
3009 REM Si el campamento no est 
a destruido o no quedan bombas n 
o se lanza . 
2010 IF NOT HIT OR NOT ROME THE 
N RETURN 
2019 REM Fone una bomba en la pa 
ntalla e inicia el puntero en la 
cascada 
2020 PRINT AT 123,395." LET bomb 
gun=20302 RETURN 
2030 FRINT AT 13,51% "1 FRINT AT 
13,41.%: LET bombgun=30401+ RET 
URN 
32040 FRINT AT 135,45" "4 FRINT AT 
17,33 %.%: LET bombgun=30301 RET 
ÚRN 
20590 FRINT AT 17,35 FLASH 13% %: 
LET bombgun=300601+ RETURN 
2059 REM Quita el avion de panta 


355 


O 


'O 


356 


llaj comprueba si quedan misiles 
en pantalla para eliminarlos 

2060 FRINT AT 12,03" "3 OVER 
li FOR I=1 TO S1: GO SUE mi¿ NEXT 
I 

2069 REM Farpadea el borde y hac 

e crudos de explosion 

2070 FOR l=1 TO 502 BORDER KND*7 
2 REEF 0,01, RND*30-151 NEXT 1 

2079 REM Fija la tinta a azul y 

hace el avion invisible 

2080 LET DEAD=13 OVER O: INE OS 

2089 REM Fone a cero la cascada 

25090 LET bombgun=30001; RETURN 


2300 REM bomba en campamento 

2309 REM Si el campamento esta d 

estruido reserva la bomba para e 

lo tirador 

29010 1F HIT. THEN RETURN 

2319 REM Resta ina bomba como la 

nzada y comienza la cascada 

O LET BOMB=0%* FRINT AT 14,215 
Puta LET bombcamp=33300+ RETURN 

20 FRINT AT 14,213" "ga FRINTOA 

Ti 321 BRIGHT na LET bombe 

amp=25340% RETURN 

2340 BRIGHT Os FRINT AT 15,223" 

294% REM Explota la tienda 

33000 FRINT AT 16,235 OVER 13 INE 
aa LES: UL 

24360 FRINT AT 17,234 OVER 15 INE 
yA A 01 ”" 

2570 LET bomicamp=23801: BRIGHT 1 
2 RETURN 

243979 REM Borra la explosion 

2080 ERIGHT Oz FRINT AT 16,235 0 

VER 15 TINE Oj "48" 

2090 FRINT AT 17,235 OVER 13 INE 
Os "yg" 

2600 LET bombcamp=3610: BRIGHT 1 
o RETURN 

3609 REM Borra la linea superior 
que queda de la tienda 


O 


0) 


O 


2610 FLOT — INVERSE 11184, 33+YT5 
DRAW- INVERSE 15116,0 

2619 REM Comprueba que la tienda 
ha sido destruida y pone a cero 
la cascada 

2620 LET bombcamp=35004* LET YT=Y 
Tela LETOHIT=(YT=0) 

2630 RETURN 


40600 REM carga 

4609 REM Carga la pantalla del «€ 
asete 

4610 LET Né="escenario" 

4EZO INFUT (o. CARGANDO "+N$+CHR 
$ br"Arranca el casete, da ENTER 
CI RTNE AR 

4630 LOAD ($) SCREENS 

4640 RETURN 


2000 REM crear/caracteres 

3009 REM Crea los caracteres par 
a la municion en los G.D.U., 

3010 LET D=255 

SOZ0 FOR 1I=0 TO 6: FOR J=0 TO 7 

5030 LET F=USR "G"-1x8+J]3 FOKEEÉ F 
yO 

3040 1F JT THEN FOKE F,D 

5050 NEXT J1: NEXT 1 

3060 RETURN 


20300 REM puntuacion 

3309 REM Imprime en las dos ulti 
mas lineas 

0010 DEF EN S(R,0):=1063%84+1NT  (K/ 
BE) A2048+ (R=INTO (R/8) AB) ADC 
au DEF EN C(A$)=13360+CODE A$* 
5] 

SO LET Reg2r LET Até="DEFENSA D 
E LA ISLA FOR BJJ € IDA" 

3040 FOR J=l TO LEN As: LET C=J- 
li 60 SUB chars NEXT J 

35550 LET R=231 LET A$="MAX.FUNTO 
5 FOR EJJ  " 

35960 FOR J=l TO LEN Ai LET C=J- 
1: 60 SUE charí NEXT J 


O 


O 


O 


O 


O 


O 
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O 


Sd 


33970 RETURN 


Gó600 REM caracter 
36092 REM Imprime el caracter jes 


imo de A$ en RC, cambia el atrio 


buto a papel rojo, tinta blanca 

3610 LET AT=FN S(R,C0)3 LET OFROM= 
FN C(A$(J)) 

S6Z0 FOR l=0 TO 73 FOKE AT+1x2536 
y FEEE (FROM+1I)% NEXT I 

2630 FPOKE 22328+C0+RX32,871 REEF 

0,03, CODE A$ (J)-530 

5640 RETURN 


39700 REM maxpuntos 

3709 REM Cambia la maxima punmtiia 

cion y la imprime en la parte ba 

ja 

3710 LET HSC=5C1 LET A$=STR$ HSC 

0720 LET Re2ii FOR J=1 TO LEN As 
o LET C=10+J% 60 SUE chars NEXT 

J 

5729 REM Cambia el nombre a letr 

as parpadeantes 

5730 FOR l=23%291 TO 232934 FOKE 
alos NEXT 1 

3739 REM Lee 3 iniciales del tec 
lado para la maxima puntuacion 

50740 LET J=11: FOR C=27 TO 29 

5730 1F INFEY$23"" THEN GO TO 5 

TOO 

5760 IF INKEY$="" THEN 60 TO 57 

60 

3770 LET A$=INFKEY$: GO SUBE chars 
NEXT C 

5780 RETURN 


Caracteres del juego 


Es fundamental planificar cuidadosamente el juego antes de comenzar a escribir 
el programa. Se debe empezar por diseñar un plan general de la escena del juego 
propuesto en un papel de gráficas. A continuación colocaremos los objetos fijos en 
sus posiciones (en nuestro caso el sol y las nubes) así como las áreas que serán 
posteriormente atravesadas por objetos en movimiento (por ejemplo, el pasillo de 
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bloques que en algún momento contendrán los caracteres de dibujo de los aviones). 
Con ello conseguiremos fijar la escala de los objetos a utilizar, y obtendremos una 
idea del aspecto final del juego acabado. Téngase presente que el tiempo consumido 
en una buena planificación en ese momento representa una mínima fracción del que 
se emplearía para ajustar un programa a punto de terminarse. Se deberá asegurar 
de que la pantalla a dibujar puede realmente ajustarse dentro del área de gráficos, 
y de que nunca se llegará a una situación en la que aparezcan más de dos colores 
simultáneamente en el mismo bloque. Una vez decidido el fondo de la escena, nos 
dedicaremos a crear los objetos que aparecerán en primer plano (por ejemplo, ex- 
plosiones, el avión, el hombre), es decir, las partes en movimiento. Para colocar un 
objeto grande en la pantalla el comando BASIC más rápido es la sentencia PRINT. 
Construiremos, por tanto, nuestros objetos en forma de bloques de caracteres definidos, 
y utilizaremos el programa de generación de caracteres del capítulo 5 para producir 
las formas requeridas. Deberemos examinar repetidamente los caracteres a su tamaño 
normal y editarlos cuantas veces sea necesario hasta conseguir exactamente la forma 
deseada. Puede resultar de utilidad añadir partes de su programa de juego al final 
del programa de generación de caracteres (opción 7; véase capítulo 5). De esta forma 
podremos observar los objetos en acción sin haber tomado una decisión final sobre 
su forma. 


Ejercicio 14.1 


Añada una nueva opción al programa GENERACION DE CARACTERES de 
manera que se pueda editar un único carácter de entre un grupo. La opción deberá 
introducir (POKE) los ocho valores BINarios del carácter que está editándose, junto 
con los demás caracteres del grupo, en las posiciones de display file pertinentes de la 
pantalla; por ejemplo, los dos bloques que forman el avión en vuelo horizontal hacia 
la derecha (véase figura 14.1). Con ello podemos decidir rápidamente las ventajas 
e inconvenientes de alterar algún pixel del carácter. 


Figura 14.1 
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Fondo de la escena 


A continuación se crea el fondo utilizando una combinación del GENERADOR 
DE CARACTER y las subrutinas de construcción de diagramas del capítulo 6. 
Como primera medida rellenamos, utilizando “papel”, áreas rectangulares de bloques 
que cubran aproximadamente las partes de la escena que se desee (por ejemplo, 
hierba, cielo, sol, etc.). A continuación sobreimprimimos los detalles iniciales por medio 
de caracteres especiales y órdenes PRINT (por ejemplo, los árboles, sacos de arena, 
“punto” y “línea” de las subrutinas de diagramas. Por ejemplo, los árboles se realizan 
añadiendo líneas y puntos a los caracteres utilizados para la explosión. Podemos 
aumentar el número de opciones incluyendo colores con BRIGHT junto con colores 
normales. Debe tenerse un cuidado especial en la construcción de aquellos bloques 
que serán ocupados en algún momento por objetos en movimiento. Dichos bloques 
deberán contener un solo color de fondo sin ningún detalle adicional. Recuérdese 
que sólo se permite tener dos colores simultáneamente en el mismo bloque, por lo 
que existe siempre el peligro de que un objeto en movimiento introduzca un tercer 
color. En nuestro caso particular (véase figura 14.2), existen dos zonas del fondo 
en las que deberemos proceder con precaución. 


1) Los aviones pasan por delante y por detrás de una nube en su camino de vuelta, 
de manera que la nube debe contener una “puerta” de bloques blancos en su centro. 
Obsérvese que no podemos colocar el cielo azul y la nube blanca en el mismo 
bloque por el que ha de pasar el avión, de manera que la frontera entre cielo 
y nubes en esta puerta debe ser un borde recto. El avión desaparece realmente 
detrás de la nube durante su vuelo, de tal forma que algunos de los bloques 
de esta puerta contienen tinta (INK) blanca y papel (PAPER) blanco. Así pues, 


Figura 14.2 
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cuando el avión penetra en este bloque, los pixels de tinta toman el mismo 
color blanco del papel, y el avión resulta indistinguible respecto a la nube. 

2) El sol, que parece ser un círculo suave, tiene en realidad bordes planos en cada 
parte. Los aviones pasan a través de uno de estos bordes, sin encontrar en 
ningún momento una combinación de sol y cielo en el mismo bloque. Se puede 
comprobar este último punto en la ampliación de la figura 14.1, la cual ha sido 
realizada con la ayuda de la subrutina “pixels gigantes” del listado 5.2. Este 
diagrama ignora los atributos verdaderos de los bloques; en realidad, utiliza 
tinta negra y papel blanco. Los colores verdaderos pueden observarse en el di- 
bujo a escala 1/16 situados en la esquina superior izquierda. Evidentemente, 
aquellos bloques de caracteres de la escena que no vayan a ser alterados durante 
el juego pueden contener dos colores. 


Animación en cascada 


Una vez que hemos almacenado esta primera aproximación del fondo en la cinta, 
deberemos escribir las subrutinas que posicionarán y moverán los objetos en pantalla. 
Nuestro principal objetivo será la velocidad de ejecución, por lo que deberemos reali- 
zar las subrutinas tan explícitamente como sea posible. Así pues, es necesario mini- 
mizar el número de cálculos que se requieran cuando el juego está en funcionamiento. 
Si se puede realizar una programación extra o una serie de cálculos con anterioridad 
al comienzo del juego, conseguiremos con ello salvar algunos preciosos milisegundos 
durante el mismo; cualquier ahorro de tiempo de este tipo es aconsejable aunque 
la programación previa resulte molesta. Describiremos una técnica de este tipo en 
nuestro programa ejemplo, la conocida técnica de la cascada o método de punto 
de entrada variable. Aquellas subrutinas que sean importantes desde el punto de 
vista de tiempo de ejecución serán llamadas por medio de un puntero variable (un 
“pointer”, identificador que utilizaremos en letras minúsculas). Estas subrutinas com- 
ponen una cadena (o cascada) de subtareas programadas, de las cuales se emprende 
cada vez una y sólo una. Una vez realizada la subtarea, el puntero a estas subrutinas 
se altera y se devuelve el control al programa principal. Al entrar de nuevo, el pro- 
grama obedece naturalmente a una sección diferente del código dentro de la subrutina; 
en general, el puntero se dirige a la siguiente subtarea de la cascada. Continuando 
el proceso, el puntero va moviéndose por las secciones de la cascada hasta alcanzar 
el fondo de la misma (en donde usualmente se vuelve a inicializar al principio). 
El juego completo consta de una fase de inicialización seguida por un bucle de 
llamadas a subrutinas, cada una de las cuales es una cascada que resuelve un pro- 
blema específico dentro del juego (por ejemplo, mover el avión o bombardear la base). 
Las subrutinas de cascada pueden incluso llamar a nuevas cascadas. Esta técnica 
consigue una impresión de proceso paralelo, que es esencial para dar veracidad al 
juego, de manera que el usuario crea que está participando en un combate en el 
que pueden suceder varias cosas simultáneamente. En nuestro caso, intentamos dar 
la impresión de que el avión, el antiaéreo y los misiles pueden moverse indepen- 
dientemente. 
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De todas formas, este juego es quizá demasiado complicado para dar una idea 
elemental de la técnica; por ello nos referiremos a otro, mucho más simple, que tam- 
bién puede ejecutarse en máquinas de 16K. Observemos los dos programas siguientes 
que ejecutan funciones independientes: el listado 14.2 espera hasta que se pulsa una 
tecla, y a continuación dispara un punto por la pantalla; el listado 14.3, por su 
parte, mueve un signo más por toda la pantalla en zig-zag. Ambos programas uti- 
lizan las técnicas de animación rápida que se pueden encontrar en el programa 
DEFENSA DE LA ISLA; sin embargo, debido a su pequeño tamaño, es necesario 
retardarlos con un comando PAUSE (el exceso de velocidad es problema únicamente 
en programas muy sencillos). Con estos listados hemos creado dos subrutinas de cas- 
cada (listado 14.4) de modo que el punto y la cruz parecen moverse simultánea- 
mente. 

La cascada del punto consta de tres partes: a) colocar el punto en la fila 11, 
columna 0; b) si el usuario toca el teclado, el punto empieza a moverse; y c) mueve 
el punto columna a columna por la pantalla hasta que alcanza el borde derecho. 
Una vez finalizado cada uno de estos procesos, el identificador de la subrutina “punto” 
se mueve a la siguiente sección. Cuando el punto ha alcanzado la parte derecha, 
“punto” se reinicializa a posición original. 

La cascada de la cruz tiene también tres partes: a) colocar la cruz en la fila 22, 
columna 8; b) mover la cruz una fila arriba y en diagonal hacia la derecha en la mitad 
inferior de la pantalla; y c) mover la cruz una fila arriba y en diagonal hacia la 
izquierda en la mitad superior; además, si el punto y la cruz coinciden en el mismo 
bloque, chocan. 

Las dos subrutinas se han transformado en un juego con un programa principal 
que llama repetidamente a “dot” y “cross”, las subrutinas “punto” y “cruz”, cam- 
biando los identificadores correspondientes de forma constante, de tal manera que se 
pueda acceder en cada momento a la parte correcta de la cascada. 


Listado 14.2 


o! 200 REM punto O 
| | 210 PRINT AT 11,05%." | 
| ) 220 IF INKEYS = "" THEN GO TO 

eN 220 O 


230 LETD=0 
240 PRINT AT 11,D5" "s LETD = 
O Die. 1 - O 
250 IF D= 32 THEN. G0 TO 210 
| | 260 FRINT AT 11,D3"." | 
O 1 270 FAUSE 1: GO TO 240 
A — — 1 _—+ 


(5 
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Listado 14.3 


Listado 14.4 


r 
| 
| 
I 
| 
| 
| 
| 
| 
' 
| 
| 
| 
| 
/ 


200 REM cruz 
210 LET R = 211 LET.C = 8 
320 FRINT AT RyO3"+" 

250 PRINT-AT RiGs" "e LET-R 
1 

240 1F R 2 0 THEN GO TO 2310 
250 1F R > 11 THEN LETC=CIe+ 
1 

2360 IFR <= 11 THEN. LETC=C 

1 
270 FRINT AT RC "+" 

380 FAUSE 1: 60 TO 230 


Hi 
3 


100 REM bucle principal 

110 LET D=O0: LET dot=200: LET 
ross=300 

120 GO SUBE dot GO SUB cross 

130 GO TO 120 


200 REM cascada de punto 
210 PRINT AT 11,03." LET dot= 


2201 RETURN 

220 IF INEEY$="" THEN RETURN 
230 LET D=0: LET dot=240: RETUR 
N 


240 FRINT AT 11,D53" "2 LET D=D+ 
1 

230 IF D=32 THEN  LET dot=210: 
RETURN 

260 FRINT AT 11,D5"." 

270 RETURN 


300 REM cascada de cruz 
210 LET Rezli LET C=8 
320 FRINT AT RiCi"+": LET cross 
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| =3701 RETURN 
es 330 PRINT AT R,C5" "s LET R=R-1 


pd 340 LET C=C+1 MO 
| 350 PRINT AT OR,C53"+" | 
A 760 IF R>11 THEN RETURN 
ES. 370 LET cross=380: RETURN ; E 
l 


AS 780 IF R=11 AND D=C THEN  FRINT | 

MS AT R,Ci"CRASH"2 STOF O 
390 FRINT AT OR,C5" "1 LET R=R-1 | 

Ml 400 IF Ri0 THEN LET cross=210x 

O RETURN O 

410 LET C=C-1 | 

e 420 FRINT AT R,C3"+" ps 

O 470 RETURN 


Ejercicio 14.2 


Añada una línea al bucle de llamada del programa anterior de manera que, tras 
un choque, los punteros se reinicialicen al comienzo de las cascadas y se imprima 
el número de aciertos. 

Escriba un juego de “tiro al blanco” en que un cazador, controlado por teclado, 
se mueva a izquierda y derecha en la parte inferior de la pantalla. Debe disparar 
a unos patos que vuelan de izquierda a derecha, subiendo y bajando, por la misma. 


Técnicas de animación adicionales 


En el ejemplo anterior, el ahorro de tiempo y esfuerzo de programación con- 
seguido por las técnicas de cascada es realmente pequeño. Sin embargo, en programas 
grandes, en los que aparecen cascadas complicadas (por ejemplo, el movimiento del 
avión en DEFENSA DE LA ISLA), se pueden conseguir ahorros de tiempo que 
marque la diferencia-entre un atractivo juego, repleto de dinamismo, y un juego lento 
y aburrido. Obsérvese que hay ocho juegos de caracteres diferentes para describir el 
avión; véase figura 14.2. En la figura se ve la escena completa y un ejemplo de cada 
avión así como algunos otros objetos con posibilidad de movimiento. La cascada 
de dibujo del avión está dividida en secciones, cada una de las cuales sitúa un tipo 
determinado de avión en un área concreta de la pantalla. 

Hemos utilizado en el juego una gran variedad de modos diferentes de resolver 
problemas de animación. Los aviones se mueven imprimiéndolos con tinta trans- 
parente y eliminando su posición anterior con blanco. Por su parte, los misiles se 
manejan por medio de órdenes OVER (también con tinta transparente) eliminándolos 
de su posición por medio de un OVER del mismo carácter. Ambos métodos pre- 
sentan ventajas y desventajas. Cuando se pueda combinar la eliminación de.la posición 
anterior con la creación de la nueva (véanse las secciones en que el avión vuela 
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horizontalmente) observará que una orden PRINT lleva en general menos tiempo, 
pero por contra se pierde cualquier detalle que hubiera en el fondo. La orden OVER, 
por el contrario, es más lenta, pero deja el fondo intacto. Si utilizamos una com- 
binación de estas técnicas en un programa, podemos encontrarnos con problemas 
cuando dos objetos en movimiento pasan simultáneamente por el mismo bloque: 
por ejemplo, ¿qué sucedería si el cuadrado que contiene un misil queda tapado por 
un avión que pasa por el mismo sitio? Esta circunstancia se puede dar en nuestro 
juego en el bloque de la fila 7, columna 9. Lo que sucede es que el misil que ha sido 
sobreimpresionado, lo que supuestamente ha cancelado el antiguo, queda colgando en 
medio del aire. En estos casos (lo cortés no quita lo valiente) es mucho mejor tratar 
el problema explícitamente y “filtrarlo” en el programa, en lugar de complicar el 
algoritmo general, introduciendo probablemente algún otro error en el mismo. En la 
cascada del avión se ha incluido una sentencia extra (línea 1190), con la que nos 
aseguramos de que se cubre rápidamente cualquier “olvido”. Cuando trate de eliminar 
estos defectos, recuerde siempre que una instrucción que oculte el objeto “por las 
bravas” será probablemente bastante más veloz (tanto en tiempo de ejecución como 
en tiempo de programación) que una maravillosa subrutina sin ningún fallo. Aunque 
hayamos repasado cuidadosamente las peculiaridades de nuestro juego en la etapa de 
planificación, es bastante probable que aparezcan algunos defectos de este tipo. 

En nuestro programa hay dos lugares en los que mostramos un objeto pasando 
aparentemente por detrás de otro objeto perteneciente al fondo. Para conseguir que 
el avión desaparezca detrás de la nube, simplemente hacemos parte de sus bloques con 
tinta blanca, con el efecto subsiguiente de que el avión desaparece. En realidad, nos 
aprovechamos de que un avión blanco sobre una nube blanca es tan “fácil” de ver 
como un gato negro en una noche sin luna, por lo que aparentemente el avión se 
ha ocultado en la nube. El otro caso aludido se refiere al hombre que camina por 
el sendero, pasando por detrás del árbol: esta vez el problema es bastante más com- 
plicado. Necesitamos que el árbol continúe teniendo dos colores cuando el hombre está 
detrás de él. La estratagema utilizada en esta ocasión es hacer que el hombre camine 
hasta el árbol normalmente; sobreimpresionarlo (OVER) cuando coincide con el mismo 
bloque que el follaje exterior, y reducir exclusivamente a ruidos de marcha, sin im- 
primir nada durante una cantidad de tiempo tal que parezca que el hombre ha pasado 
por detrás del árbol y ha aparecido por la otra parte. Por otra parte, las piernas 
deberán aparecer por detrás del árbol un bloque antes que la cabeza cuando se está 
moviendo hacia la derecha, y realizar un esquema similar cuando se mueve hacia la 
izquierda. Todos estos detalles se deben calcular cuidadosamente antes de escribir 
la primera línea del código BASIC. 

Con una combinación de estas técnicas de movimiento de objetos, y con posibili- 
dad de pasar de una a otra, llegaremos a construir pantallas de muy alta calidad. 
Si desea juegos realmente rápidos y complejos, por supuesto, deberá utilizar subrutinas 
de código máquina. Aun así, muchas de las subrutinas podrán todavía estar escritas 
en BASIC. No “hay ninguna razón para escribir el programa completo en código 
máquina a no ser que usted pretenda vender sus juegos. 

Un consejo final. Conforme sus programas de juego se vayan haciendo más y más 
complicados e interconectados, procure mantener siempre una visión global del pro- 
grama. Tenga claro el trabajo que se debe realizar en el nivel más alto. Utilice nom- 
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bres de variables que tengan un significado fácilmente comprensible; llene el programa 
de comentarios durante el desarrollo, y, sobre todo, ¡que no cunda el pánico! 

Le dejamos ahora con su Spectrum. Ha demostrado ser una herramienta eficaz 
y robusta, directa y fácil de utilizar. Estamos seguros de que tiene por delante muchas 
horas (años quizá) de diversión con esta máquina. Para comenzar, le daremos una 
serie de ideas en el siguiente capítulo. Buena suerte y buenos programas. 


Programas completos 


LI. Listado 14.1: DEFENSA DE LA ISLA. Cargue el programa directamente de 
la cinta, ya que teclearlo le llevará un tiempo excesivo, no sólo por el listado, 
sino por los juegos de caracteres que lo acompañan. Si lo desea, produzca sus 
propios juegos de caracteres y fondo. 

IL. Listado 14.2, “punto” (dot). Pulse cualquier tecla. 

MM. Listado 14.3, “cruz” (cross). No necesita datos. 

IV. Listado 14.4, “programa principal”, “cascada de punto” y “cascada de cruz”. 
Pulse cualquier tecla. 
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15 
Proyectos 


IL. Utilice su Spectrum para dibujar un reloj digital. Use caracteres especiales 
de gran tamaño para los dígitos, separando las horas de los minutos con un símbolo 
dos puntos. Consiga que el reloj marque la hora exacta utilizando el reloj interno 
del Spectrum (véase Manual BASIC de Spectrum). 


Il. Escriba un programa que compruebe los conocimientos de código Morse 
del usuario. El programa deberá contener un párrafo de texto; una vez traducido 
a Morse, el Spectrum deberá imprimir los puntos y rayas correspondientes utilizando 
bloques de caracteres de baja resolución. Utilice también la función BEEP para 
simular el sonido del Morse. El programa deberá llevar también una variable en la 
que se especifique la velocidad de producción de código Morse, de tal manera que 
el test se ejecute más rápidamente conforme el usuario va adquiriendo experiencia. 


III. Dibuje un conjunto de señales de tráfico internacionales. El programa deberá 
dibujar el fondo de la figura (por ejemplo, un triángulo rojo); utilice a continuación 
subrutinas especiales escritas por usted mismo, o los programas de los capítulos 5 y 6 
para dibujar los motivos centrales. 


IV. Realice crucigramas en su televisor. Cada recuadro del crucigrama deberá 
tener un tamaño*de 2 por 2 bloques. Los cuatro bloques podrán ser negros (en cuyo 
caso no se introducirá ninguna letra) o blancos, en los que la esquina inferior izquierda 
contendrá la letra de la solución, y los dos caracteres superiores el número de fila 
o columna correspondiente (si lo tiene). Dispone de espacio suficiente para un cruci- 
grama de 16 por 11. 
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Necesitará también poner el texto con las indicaciones de horizontales y verticales 
en la pantalla, por lo que se encontrará falto de espacio. Este problema se puede 
resolver utilizando las ideas de “proyección de diapositivas” del capítulo 13; coloque 
el crucigrama en uno de los encuadres y la clave en los cuatro encuadres restantes. 
Las soluciones al crucigrama se pueden añadir por medio de un programa “cursor”, 
o cualquier otro código de entrada especial; por ejemplo, la letra “H” (horizontales) 
o “V” (verticales) seguidas por el número correspondiente, y a continuación la so- 
lución. Si realiza un crucigrama de menor tamaño, podrá también escribir las soluciones 
en la propia pantalla, de una en una (o quizá colocándolas en las filas 23 y 24), 
en cuyo caso no necesita retirar el crucigrama de la pantalla. 


V. En el Manual de Spectrum se da un programa para dibujar una bandera. 
Escriba programas o utilice el generador de caracteres y las subrutinas de diagramas 
(capítulos 5 y 6) para dibujar otras. También puede dibujar escudos de compañías 
o diseñar motivos nuevos. Utilice las técnicas del capítulo 13 para acceder a las 
posiciones de display file con el fin de añadirlo como opción extra a las subrutinas 
de diagramas. Esta opción le permitirá copiar un conjunto de bloques (que ya estén 
en pantalla especificados por “cursor”) sobre otro conjunto del mismo tamaño que se 
encuentre en otro lugar de la pantalla (también especificado por “cursor”). También 
puede girar o reflejar el motivo realizado. 


VI. En el Manual de Spectrum se muestra cómo se puede utilizar la función 
BEEP para producir música (?). Escriba un programa que dibuje en pantalla la par- 
titura mientras BEEP interpreta los sonidos. Dibuje los pentagramas y utilice caracteres 
especiales para las notas, pausas, etc. Incorpore un metrónomo para marcar el ritmo 
de la canción. 


VII. Use el método de los bloques de caracteres para dibujar laberintos. El 
programa, obviamente, deberá generar laberintos con soluciones reales. Imponga limi- 
taciones de tiempo para la búsqueda de la salida. Haga laberintos animados, que 
cambien conforme avanza el juego. Añada alicientes: monstruos comehombres que 
pululan por el laberinto; trampas que aparecen de repente y pueden tragarles; “agujeros 
negros” que lo trasfieran a otro lugar del laberinto si no se mueve lo suficientemente 
rápido. 


VIII. Realice extensiones de las ideas del capítulo 6. Dibuje sus propios his- 
togramas especiales, círculos porcentuales y gráficas. Introduzca animación en los dia- 
gramas (con el método “cine” del capítulo 13 o con el “juego del gusano” del ca- 
pítulo 1, y su forma extendida del capítulo 14). Genere juegos completos de carac- 
teres especiales. Fabrique histogramas (aparentemente) en tres dimensiones dibujando 
cada barra con tres secciones de diferente color. La sección frontal de cada barra de- 
berá ser un número entero de bloques de caracteres, y tendrá una anchura de dos 
bloques. La sección lateral será de un bloque de ancho, de la misma altura que 
la anterior, terminando en su parte inferior en un triángulo que se una a la sección 
frontal. La parte superior estará colocada sobre la sección frontal, y tendrá forma 
de rombo, uniendo las dos anteriores. 
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De esta forma se asegura que no habrá en ningún caso más de dos colores en 
el mismo bloque, y da a la barra la apariencia de una perspectiva ortogonal de una 
columna rectangular. 


IX. Produzca composiciones abstractas. Utilice OVER con un gran número de 
líneas aleatorias sobre la pantalla. Alternativamente, puede dibujar líneas siguiendo 
pautas regulares muy densas, con lo que obtendrá diagramas de Moire. Por ejemplo, 
dibuje las líneas que unen los puntos (0,1) a (255,175 — I) para 0 <I< 175 y los 
puntos (1,0) a (255 — 1,175) para 0 < I < 255. Extienda las ideas del programa de 
composiciones del capítulo 5 para producir composiciones simétricas complejas: cual- 
quier libro de introducción a la cristalografía les aportará un gran número de ideas. 


X. Los libros de cristalografía le proporcionarán ideas sobre objetos tridimen- 
sionales. Extienda los programas a cuatro dimensiones: los vértices serán ahora un 
vector de cuatro números y las transformaciones necesitarán matrices 5 x 5. Una 
proyección ortogonal en el espacio de cuatro dimensiones se realizará ignorando dos 
de las coordenadas (en lugar de una, z, como se hacía en tres dimensiones). ¿Cómo 
se realizan traslaciones, escalas y rotaciones en cuatro dimensiones? 


XI. Hasta ahora hemos presentado dos juegos en tablero, ajedrez y Master Mind. 
Hay muchas otras posibilidades: damas, Scrabble, el ahorcado, parchís. Puede crear 
un fichero completo de juegos de este tipo. El Spectrum puede utilizarse simple- 
mente como tablero o actuar también de árbitro. Si se siente realmente emprendedor, 
puede incluso intentar utilizar el ordenador como oponente. 


XII. Utilice caracteres especiales para construir una baraja de cartas. Puede in- 
corporarlas a un programa que juegue blackjack actuando el Spectrum como banquero 
y oponente. 


XIII. Puede dibujar algunos tipos de rompecabezas en su televisor. Por ejemplo, 
supongamos que tenemos nueve cuadrados, cada uno de ellos dividido en cuatro partes 
por sus diagonales. Cada parte tiene un color (azul “1”, rojo “2”, magenta “3” y verde 
“4”) y un signo (“+>” o “—”). Representaremos cada cuadrado como una secuencia 
de cuatro números que denote las áreas de cada color leídas en sentido horario res- 
pecto al centro. Por ejemplo, podemos tener (— 1, —2, 1, 4), (—1, 3, 4, —2), (1, —4, —2, 
3), (1,2, —3, —4), (1,3, —2, —4), (1, 4, —-3, —2), (2, —3, —4,3) y dos casillas (—1, —4, 
3,2). El problema a resolver consiste en colocar los nueve cuadrados en una dis- 
disposición tres por tres, de manera que cada dos partes vecinas que se toquen 
sean del mismo color pero de signo opuesto. Puede utilizar el Spectrum para dibujar 
los cuadrados inicialmente en la parte izquierda de la pantalla y construir un retículo 
tres por tres del mismo tamaño en la derecha. A continuación tomará los cuadrados 
de la izquierda" y los colocará en el retículo, o los volverá a dejar en su posición 
original a la izquierda. 

Además, puede escribir un programa que encuentre la solución del problema 
anterior; su ejecución lleva unos diez minutos, y encuentra dos soluciones indepen- 
dientes. 
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XIV. Produzca un paquete de gráficos de resolución media para manipular bloques 
2 x 2. Este paquete será similar al que apuntamos en el capítulo 5 para bloques 
de caracteres. La pantalla consistirá, por consiguiente, en un conjunto de 64 por 44 
bloques. Tómese una fotografía de sí mismo y superpóngala a un retículo de 64 por 44. 
En cada cuadrado, decida si es predominantemente claro u oscuro y coloree el bloque 
de acuerdo con ello. Aparentemente es un trabajo muy pasado, pero observe que la 
mayor parte de la figura será de gris claro, por lo que si usa papel blanco y tinta 
negra, la mayor parte de los cuadrados se podrán despreciar. Como una cabeza es 
más alta que ancha, podrá conseguir mejor resolución si realiza el dibujo “acostado” 
en la pantalla. También puede dibujar dos cabezas verticales en la pantalla. 


XV. Escriba un videojuego del tipo “comecocos”. Necesitará preparar cinco objetos 
que se muevan por la pantalla al mismo tiempo. Para conseguir que el juego fun- 
cione más rápido, haga que sólo dos de los “fantasmas” se muevan por cada movi- 
miento del “comecocos”. Los fantasmas deberán ser capaces de encontrar el camino 
más corto hacia el jugador cuando están en modo ataque, y la mejor ruta de escape 
cuando se encuentran huyendo. Si encuentra demasiadas dificultades para encontrar 
el algoritmo correcto, haga que los fantasmas se muevan simplemente hacia (o aleján- 
dose de) el jugador, mientras no haya una pared que se lo impida. Busque una forma 
rápida de codificar estos movimientos, ya que será la parte del juego que más tiempo 
consuma. Tenga siempre presente que la velocidad es la esencia de un buen videojuego. 
Si añade algunas pequeñas subrutinas en código máquina para imprimir las cinco 
figuras en la pantalla, conseguirá mejores resultados; puede moverlas a continuación 
utilizando órdenes “PRINT AT”. 


XVI. Escriba un programa que como primera providencia presente (OVER) en 
menú de símbolos especiales en la parte izquierda de la pantalla, por ejemplo, las 
figuras utilizadas de componentes de circuitos electrónicos (resistencias, condensadores, 
etc). Cada uno de estos símbolos estará formado por un conjunto de bloques de ca- 
racteres. Utilice un cursor para apuntar a cualquier símbolo del menú y a continuación 
(utilizando OVER) llevar una copia del mismo a la posición requerida de la pantalla. 
Incluya además la posibilidad de dibujar líneas de conexión y etiquetar con caracteres 
numéricos y especiales reducidos (por ejemplo, (2 para ohmios). También deberá tener 
en cuenta la posibilidad de borrar un símbolo colocado con posición incorrecta. 
Añada también opciones como almacenar y cargar un diagrama realizado, así como 
la posibilidad de borrar el menú una vez conseguido el dibujo final. 


XVII. En todos nuestros programas de dibujos en perspectiva hemos supuesto que 
los objetos estaban totalmente situados delante del ojo. Cambie los programas de 
manera que puedan tratar el caso general en el cual algunos vértices puedan estar 
situados detrás del mismo. 
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Apéndice A 
Adaptación de programas 
al Spectrum 16K 


En este modelo de ordenador, algo más de 7K se utilizan en la pantalla y fichero 


de atributos, así como para ciertas variables del sistema. Por tanto, el tamaño de los 
programas y datos a introducir deberá ser inferior a aproximadamente 8,8K. Mu- 
chos de los programas presentados en este libro exceden este valor; la mayor parte 
de ellos, sin embargo, funcionarán siempre que el lector observe las siguientes normas: 


1) 


2) 


Borre todas las instrucciones REM de los listados de la cinta, así como cualquier 
subrutina no utilizada de los ficheros de librería (por ejemplo, “plot” y posible- 
mente “escala”); realice esta operación antes de ejecutar MERGE con las demás 
subrutinas. Siga asimismo las instrucciones dadas en el capítulo 13 para optimi- 
zación de código de programa. Así, por ejemplo, el programa de dibujo del reactor 
(listados “rut1”, “rut3” y “9.9”) pueden encajar casi exactamente en la memoria 
eliminando todos los REM y las subrutinas “escala” y “plot”. 


Es posible que no consiga almacenar simultáneamente los cuatro juegos de ca- 
racteres alternativos (conjuntos 2 al 5) y el juego de Gráficos Definidos por 
Usuario (conjunto 6). Si consigue espacio suficiente para todos (contando con el 
conjunto número 1, que es el estándar), la tabla de direcciones correspondientes 
deberá contener los valores 15360, 29271, 30039, 30807, 31575 y 32080 respectiva- 
mente. Si utiliza algún juego con dirección menor, puede llegar a “corromper” su 
programa y/o datos, o incluso colgar el ordenador. ¡Utilice únicamente los 
conjuntos que no interfieran con el almacenamiento! La sentencia CLEAR situada 
al comienzo de los programas que usan caracteres alternativos deberá cambiarse de 
CLEAR 62294 a CLEAR 255 + la dirección del conjunto disponible más bajo 
(excepto el 1). Se encontrará con que en el programa GENERADOR DE CARAC- 
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3) 


TERES no hay espacio suficiente para el conjunto 2, y en este caso deberá 
introducir un CLEAR 255 + 30039. Si realiza un programa que necesite el conjunto 
2, cargue estos caracteres como conjunto $ (por ejemplo), guárdelos en cinta, y 
cárguelos en su programa, el cual, por supuesto, deberá disponer de espacio para 
dicho conjunto. 


Los programas se pueden dividir en partes no dependientes entre sí, y almacenar 
los gráficos y/o datos producidos en cinta. A continuación se cargarán estos fi- 
cheros junto con otros programas, para continuar su manipulación; esta técnica, 
por ejemplo, resultará de utilidad en las construcciones de diagramas del ca- 
pítulo 6. Deberá cargar (LOAD) “rutdiag” y encadenar (MERGE) uno de los 
programas de histogramas, círculos porcentuales, gráficas o edición de dibujos. 
Durante la ejecución del programa deberá tener en cuenta que no debe intentar 
acceder, obviamente, a las subrutinas que no se encuentren en memoria en ese 
momento. Podrá guardar (SAVE) y cargar de nuevo (LOAD) los dibujos inter- 
medios utilizando la opción SCREEN$, y las matrices y vectores con la opción 
DATA. A continuación puede cargar las siguientes subrutinas hasta finalizar el 
diagrama. 


Por desgracia, algunos programas no se ajustan a una memoria de 8,8K incluso 
realizando todas estas maniobras; este es el caso del algoritmo general de líneas 
ocultas para objetos no triviales, el programa de “cine” y el juego DEFENSA 
DE LA ISLA. Si desea realmente profundizar en el estudio de gráficos por or- 
denador con el Spectrum, le aconsejamos calurosamente que se plantee la adqui- 
sición de una memoria de expansión de 32K para su ordenador. 
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Apéndice B 
Listados de programas Basic 
incluidos en la cinta 


Damos a continuación una lista de los listados de programas BASIC que se 
pueden encontrar en la cinta que se acompaña. Estas subrutinas están dispuestas 
para funcionar en la versión 48K de Spectrum. La mayor parte de las mismas no 
requiere cambios para funcionar en 16K; sin embargo, si usted posee este tipo de 
máquina, deberá comprobar las alteraciones que se indican en los comentarios REM 
de los listados, así como leer el Apéndice A. Las únicas subrutinas escritas específica- 
mente para 48K son: “cine”, las cinco pantallas “esferal” a “esferaS” y el juego 
DEFENSA DE LA ISLA. 

Tal como se indica en el Apéndice anterior, observará que en el capítulo 6 de- 
berá cargar (LOAD) “rutdiag” y encadenar (MERGE) tan sólo uno de los siguientes 
programas: “6.8”, “6.9”, “6.104 11” o “6.12”. Si necesita más de un tipo diferente 
de gráficos de datos en pantalla en un momento determinado, deberá guardar (SAVE) 
los dibujos intermedios en cinta y volver a cargar (LOAD) la pantalla una vez creado 
el nuevo programa. 


CARA 1 

Nombre del fichero Contenido 

directl Directorio 1. 

rutl Listados 2.1, 2.2, 2.3, 2.4, 2.8 y 3.3. 
Subrutinas para realización de gráficos en el espacio 
bidimensional. 
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2.9 
2.12 
2.13 
3.1 
rut2 


4.10 
4.11 
4.12 
del 

EZ 
7.344 
7.5 

7.6 

del 
rut3 
8.546 
9.6£748 


9.9 
910411 


10.1 
9.3 410.2 


10.6 


0.1 
10.4 


11.1%2 
12.1 
12.2 


12.3% 4 
12.58 647 


cine 
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Listado 2.9; uniendo puntos de un N-ágono regular. 
Ejemplo de un recubrimiento. 

Espirógrafo. 

Cuadrados en cuadrados en cuadrados en..., etc. 
Listados 3.4, 4.1a, 4.2a, 4.3a, 4.4a, 4.5, 4.6. 

Subrutinas para la manipulación de matrices en dos di- 
mensiones. 

Subrutina de construcción general de una elipse. 


Construcción de cuatro “naves espaciales”. 


Punto de intersección de una recta y un plano en el 
espacio tridimensional. 

Punto de intersección de dos rectas en el espacio tridi- 
mensional. 

Ejemplo de producto escalar y vectorial. 

Inversa de una matriz 3 x 3. 

Punto de intersección de tres planos en el espacio tri- 
dimensional. 

Recta de intersección de dos planos en el espacio tri- 
dimensional. 

Listados 3.4, 9.1, 9.2 y la versión eficiente de los lis- 
tados 8.1, 8.2, 8.3 y 8.4; subrutinas para manipulación 
de matrices en el espacio tridimensional. 

Rotación de un punto con respecto a un eje arbitrario. 
escena3, subrutinas de construcción y dibujo; necesarias 
para la realización en proyección ortogonal de dos cubos. 
Subrutinas adicionales para dibujar el reactor (ortogonal). 
Subrutinas para construir una proyección ortogonal de 
un cuerpo de revolución. 

Orientación de un triángulo en tres dimensiones. 
escena3 y subrutina de superficies ocultas para dibujar 
un cubo. 

Subrutina de superficies ocultas para dibujar un cuerpo 
convexo de revolución. 

Subrutina de construcción de un platillo volante (!). 
Subrutina de superficies ocultas para dibujo de una su- 
perficie matemática. 

Proyección en perspectiva de dos cubos. 

Algoritmo general de líneas ocultas. 

Dos cubos en perspectiva con eliminación de líneas 
ocultas. 

Subrutinas de construcción de cubooctaedro e icosaedro. 
Subrutinas de construcción de dos estrellas, y una sub- 
rutina escena3. 

Programa para presentar cinco imágenes en rápida su- 
cesión. 


esferal 
esfera2 
esfera3 
esfera4 
esfera5 


CARA 2 


Nombre del fichero 


direct2 
borrado ' 


S.6 
máster 
3:17 
ajedrez 
14.1 
video 
escena 
1.4 

1:S 


Cinco encuadres requeridos por el programa anterior 
para producir una esfera en movimiento. 


Contenido 


Directorio 2. 
Utilidades del listado 13.9. 


GENERADOR DE CARACTERES. 

Programa principal para realización de teselados sen- 
cillos. 

Listados 6.1, 6.4, 6.6; subrutinas básicas para la cons- 
trucción de diagramas. 

“papel” y “tinta”. 

“punto” y “línea”. 

“etiqueta”, “caracteres reducidos” y “crear”. 

Subrutina de histograma/tipo 1. 

Subrutina de histograma/tipo 2. 

Subrutina de círculos porcentuales y sombreado. 
Gráficas científicas. 

Caracteres almacenados en el juego número 3 utilizados 
para realización de símbolos de menor tamaño. 
Caracteres del juego número 4. 

JUEGO DEL GUSANO. 

Juego del MASTER MIND. 

Caracteres del programa anterior. 

Tablero de Ajedrez. 

Juego de caracteres del programa anterior. 

Juego de la DEFENSA DE LA ISLA. 

Juego de caracteres del programa anterior. 

Escenario del juego anterior. 

Programa de muestra de curvas fractales. 

Dibujos con OVER. 

Caracteres en binario. 

Programa de formación de pixels gigantes. 
Construcción de caracteres gráficos a partir de ocho nú- 
meros binarios. 

Entrada de datos para 10 vértices de un polígono. 
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13.6 
1357 
13.8 
14.4 
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“Scroll” de la pantalla: en código máquina. 
Versión BASIC del 13.6. 

Programa autolistante 

Técnica de la cascada. 


Indice alfabético 


A, 105, 146, 223, 249. 
ABS, 57. 
ABSOLUTO, 105-107. 
ACTUAL, 105-107, 109, 111, 114, 115, 119, 121, 
283, 288, 289. 
adjunto, 229. 
ajedrez, 153, 371. 
pieza de, 153. 
álgebra, 71. 
Algoritmo-s, 219, 295, 296, caps. 10, 12. 
de eliminación, 279. 
de líneas ocultas, 218, 219, 265, 266, 268, 
269, 278, 295, 303, 305. 
de superficies ocultas, 265, 266, 268. 
almacenamiento de información, 119. 
alta resolución, 36, 38. 
ángulo, 87, 88, 227, 228, 229, 236, 246, 280. 
agudo, 87, 88. 
de visión, 280. 
obtuso, 88. 
de giro, 77. 
animación, 36, 324, 361-366. 
en cascada, 361. 
simple, 36. 
antiaéreo, 344. S 
antihorario, 266, 267, 268, 297. 
apuntador, 312. 
arco, 184. 
áreas, 89, 297, 359, 360. 
de gráficos, 359. 


poligonal convexa, 297. 
rectangular, 360. 
aristas, 246, 265-267, 296. 
array, 98, 109. 
ATN, 86. 
ATTR, 32, 41. 
AX, 235. 
AY, 235. 


B, 105, 146, 223. 

BASIC, 13, 19, 22, 61, 86, 101, 115, 145, 173, 
332, 343, 359, 365. 

barras, 173, 180, 181. 

base de datos, 119. 

BEEP, 369, 370. 

beta, 230. 

binarios, 19, 20. 
conmutadores, 27, 131. 
«noes», 19, 20. 
representación, 127. 
«sies», 19, 20. 

bits, 20, 35, 127, 130, 131. 

blackjack, 371. 

blanco, 20, 32, 35. 

bloque, 32, 33, 34, 36, 127, 130, 132, 135, 173, 
319, 322, 359. 
de caracteres, 21, 32, 33. 
gráfico, 127, 130-132, 135. 

borde del cuadrado, 31. 

borde frontal, 278. 
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BORDER, 21, 338, 339. 
borrado, 331, 333. 
BREAK, 340. 
BRIGHT, 32-35, 360. 
bucle FOR ... NEXT, 21, 23, 26, 114, 146, 236. 
BYTE, 14, 319, 327, 332, 338. 
alto, 327, 332. 
bajo, 327, 332. 


C, 146, 234. 
Calcomp, 57, 79. 
cara, 247, 265, 266, 295, 303. 
antihoraria, 281. 
contigua, 295, 296. 
convexa, 296. 
horaria, 312. 
invisible, 312. 
triangular, 311. 
carácter/caracteres, 19, cap. 5, 166, 168, 171, 173, 
174, 188, 358, 359. 
alfabético, 246. 
alternativo, 143, 145, 147. 
bloques de, 127, 174. 
código, 128, 129, 131. 
control de, 130. 
definidos por el usuario, 133, 136, 193, 369. 
edición, 145. 
especiales, 171. 
generador de (véase generador de caracteres). 
gráficos, 130, 131, 132, 144, 153, 173. 
juego de, 145, 146, 147, 166, 167, 188, 364. 
redefinidos, 145. 
subrutinas generadas por, 143, 146, 147. 
carga, 166, 167. 
cartesianas, 50. 
cascada, 361. 
de la cruz, 362. 
del punto, 362. 
CHARS, 128, 129, 135, 320. 
CHR$, 317. 
cine, 375. 
cinta, 371. 
CIRCLE, 37.61. 
circulo, 96, 166, 181. 
porcentual, 181, 182, 183. 
circunferencia, 92. 
CLEAR, 145, 373. 
clip, 249. 
CODE, 130, 317, 332. 
código, 128, 130, 133. 
de control, 313, 317, 332. 
máquina, 321, 322, 327, 343. 
mnemónicos, 322. 
coeficiente, 99. 
COL, 164. 
COLOR, 193, 360. 
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columna, 97. 
combinación de transformaciones, 100, 105, 106. 
comecocos, 346, 372. 
conjunto, 90, 193, 217. 
coordenado, 193. 
de definición, 260, 262. 
orientado de vértices, 90. + 
CONTINUE, 164. 
convexo, 90, 91. 
COPY. 132.133, 
copyright, 128. 
COS, 58, 86. 
coseno, 58, 86. 
curva, 193. 
director, 86, 88, 199. 
cuadrado, 25, 26, 31, 66, 67, 164. 
cuadrante, 66, 130, 145, 279. 
cuadrícula, 278. 
cuadrilátero, 271. 
cubo, 269, 285, 288, 303, 305, 308. 
EUBOCT;312. 
cuerpo de revolución, 259, 262, 271. 
no convexo, 274. 
de rotación, 260. 
cross, 362. 
cruz, 362. 
curva/s, 24, 88-92, 193. 
cuadrática, 93. 
fractal, 24. 
cursor, 30, 144, 161, 162, 164, 166, 370. 


D, 146, 279. 

DATA, 145, 249, 259, 269, 322, 374. 

dato, 127, 129, 161, 231, 303. 

DEFENSA DE LA ISLA, 343, 362, 364, 374. 

DELETE, 317. 

desplazamiento, 188. 

determinante, 99, 205. 

diagrama, 161-165, 166, 169, 176, 188. 
de barras, 173. 
de líneas, 241. 

dibujo, 193, 269, 274, 283, 284, 288, 292. 
etiquetar, 193. 
terminar, 193. 

dígito binario, 127. 

dimensión, 50. 

dirección, 51, 80, 85, 86, 233. 

diseño modular, 271. 

display file, 20, 22, 27, 32, 35, 130, 131, 164, 
319, 321, 324, 327, 338, 359, 370. 

distancia, 76, 89, 284. 

DOBLE, 145, 147. 

dot, 363. 

DRAW, 22, 24, 37, 82, 83, 154, 165. 

drawlin, 279. 

DX, 123, 278, 279, 280, 313. 


DY, 123, 278, 279, 280, 313. 
DZ, 278, 279, 280, 313. 


ecuación cuadrática, 93. 
ecuaciones lineales, 224. 
EDIT, 311, 339, 340. 
editor, 144. 
efecto colateral, 62. 
eje/s, 50, 47, 62, 174, 180, 223, 226, 260, 271, 
284. 
de coordenadas, 188. 
mayor, 62. 
menor, 62. 
de rotación, 230, 231, 233. 
X, 57, 62, 65, 68, 144, 146, 192, 277, 288. 
Y, 57, 62, 144, 146, 192, 288. 
Z, 266. 
zurdos, 227. 
elipse, 62, 92, 93, 117. 
encuadres, 324. 
ensamblador, 322. 
ENTER, 162. 
envolvente, 66. 
error, 145, 364, 365. 
aritmético, 235. 
de redondeo, 203. 
escala, 51, 57, 183, 359, 373. 
cambio de, 82, 102, 103, 105, 106, 111. 
factor de, 57. 
matriz de, 105. 
escalar, 75, 76. 
escena, 109, 119, 295, 296, 303, 308, 313, 344, 
358, 360. 
esfera, 92. 
espacio bidimensional, caps. 2-6. 
espacio tridimensional, caps. 7, 13. 
espiral, 62, 63, 92. 
espirógrafo, 68, 69. 
esqueleto, 241, 265, 266. 
etiquetas, 167, 169. 
dibujo de, 193 
verticales, 171, 174. 
etiquetado, 176. 
euclídea, geometría, 71. 
Euclides, 71. 
algoritmo de, 71. 
evaluar, 193. 
EX, 279, 280, 289, 293, 313. 
EY, 279, 280, 289, 293, 313. 
EZ, 279, 280, 289, 293, 313, 
F, 162, 231, 233. 
FS, 193. 
factor de escala, 226. 
fichero de atributos, 32, 33, 324, 328, 344. 
fichero de librería, 53, 373. 


fila, 100. 

FLASH, 32, 36, 165. 

FOR ... NEXT (véase bucle FOR ... NEXT). 
forma paramétrica, 92. 

fractal, 24, 

función F, 274, 278. 

función trigonométrica, 86. 


G, 231, 233, 

GAMMA, 231, 233. 

GAP, 174, 176. 

GENERADOR DE CARACTERES, 168, 171, 
188, 373, 374. 

geometría, 71, 92. 

GO SUB, 13, 339. 

GO TO, 339. 

grabación, 166, 167. 

gráficas, 173, 188. 
de datos, 168. 

gráfico, 127, 129, 130. 
pluma para, 51, 52, 57, 62. 

graphics pen, 22. 

grid, 22. 

gusano, 40, 370. 


H, 231, 233, 266. 

hidden, 303, 312. 

histograma, 13, 168, 173, 181. 

horario, 90. 

HORIZ, 51, 69, 71, 94, 107, 124, 278, 280, 289, 
293. 
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icosa, 312. 

IF, 41. 

índice, 247 

INICIAL, 105-107, 109, 111, 114,-115, 117, 119, 
121, 124, 260, 271. 

INK, 19, 21, 27, 32, 35, 57, 135, 146, 162, 164, 
317, 360. 

INPUT, 23, 24, 181, 183, 317. 

INT, 51. 

intersección, 80, 81, 83, 94, 184, 

INVERSE, 27, 31. 


J, 267. 

joystick, 162. 

JUMP, 184. 

juego del gusano, 317. 


L, 162, 297, 298. 
laberinto, 370. 


¿LDIR, 321. 


lejanía, 291. 

lenguaje ensamblador, 322. 
LET, 14. 

línea de trazos, 80. 


líneas, 22, 53, 60, 75, 76, 109, 111, 165, 184, 230, 
283, 285, 295, 297. 
horizontales, 23, 24. 
rectas, 53, 60, 75, 78, 80, 81, 82, 88, 89. 
superficies ocultas, cap. 12. 
verticales, 23, 24. 

LIST, 24, 165. 

listar, 165. 

LOAD, 14, 167, 344, 374. 


mapped, 20. 
MASTER MIND, 147-153, 317. 
matriz/matrices, cap. 4, caps. 8-12. 
adición, 98. 
de coeficientes, 99. 
cuadrada, 97, 223, 235. 
elementos de una 98. 
de escala, 105. 
identidad, 99, 104, 131, 223. 
inversa, 99, 104, 116, 211, 229. 
multiplicación, 98-101, 116. 
de pixels, 51. 
no singular, 99. 
transformación por, 105, 109. 
de transformación, 104, 106, 111, 112. 
de traslación, 102, 105, 106, 111. 
traspuesta, 100, 223, 226. 
unidad, 99. 
MAX, 298. 
máximo, 176, 180, 184. 
memoria, 127, 128, 133, 143. 
RAM, 130. 
ROM, 127, 130, 145 
MERGE, 54, 146, 147, 176, 331, 373, 374. 
MIN, 298. 
mínima, 176, 180, 184. 
modo, 144, 145. 
edición, 144, 145. 
gráfico, 129, 130. 
modular, 58, 71, 107, 111, 317. 
módulo, 13, 40, 252. 
MOVE, 57. 


MULTIPLICACION (por un) ESCÁLAR, 75, 


76, 88, 223, 236. 
por la derecha, 100, 101. 
por la izquierda, 101. 
mult2, 223. 
mult3, 223, 236. 
MV, 184. 


N, 193. 

nave espacial, 110-115. 
no conmutativo, 99. 
no singular, 99. 

NOF, 266. 

NOL, 119, 312. 
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NOV, 119, 266, 295. 

NRL, 297, 298. 

NUMH, 271, 280. 

NUMV, 271, 280. 

NXPIX, 49, 51, 60. 

NYPIX, 49, 51, 60. 

O, 144. 

objeto, 105, 107, 115, 120, 121, 122, 131, 265, 
266, 269, 295-311. 
almacenado, 303. 
cerrado, 295. 
colocación, 105. 
convexo, 295. 
dibujando el, 105. 
fijo, 358. - 
vistas, 105. 

OBSERVADA, 105, 106, 107, 109, 111, 114, 
115, 117, 119, 121, 124, 266, 271, 278, 283, 
284, 285, 288, 292, 296. 

observador, 105, 106, 107, 111, 124. 

OFF, 144. 

ojo, 108, 123. 

orden, 101. 

orientación, 266, 267, 297. 
antihoraria, 295-297. 
horaria, 297, 311. 

origen, 50, 62, 68, 101, 102, 108. 

ortogonal (véase proyección ortogonal). 


P, 108, 144, 231, 233. 

página, 319. 

pantalla, 20, 24, 97, 105, 108, 127, 128, 132, 
146, 152, 166, 266. 
centro de la, 82. 
gráfica, 279. 

papel de gráficos, 358, 360. 

papel cuadriculado, 255. 

PAPER, 19, 21, 27, 32, 35, 136, 146, 161, 164, 
317, 360. 

par de ccordenadas, 50. 

parábola, 92. 

paralelo, 50, 51, 67, 228, 229, 230, 235. 

parámetro, 114, 118, 133, 270. 

PAUSE, 338, 362. 

perspectiva (véase proyección en perspectiva). 

Pitágoras, 76. 

pixels, 22, 26, 28, 35, 46, 49, 51, 82, 83, 90, 127, 
130, 144, 162, 165, 173, 181, 192, 279, 359, 361. 
coordenadas en, 21. 
extremo, 83. 
matriz de, 51. 
sucesión de, 60. 

plano, 75, 201, 202, 214, 226, 227, 285, 291, 
295, 296. 
paralelos, 266, 274. 


de perspectiva, 283, 285, 295, 297. 
de visión, 240, 295. 
PLOT, 22, 24, 57, 82, 83, 135, 154, 164, 165, 
373. 
pointer, 312, 361. 
POKE, 33, 322, 327, 359. 
polígono, 56, 68, 90, 91, 218, 220, 266. 
convexo, 218, 220, 268, 273. 
PPD, 283, 289, 291, 297. 
PRINT, 24, 39, 127, 128, 177, 359, 360, 365, 372. 
PRINT AT, 33, 312. 
producto escalar, 75, 76, 88, 201, 223, 225, 236. 
vectorial, 223, 225, 235. 
programación eficiente, 337. 
proyección, 197, 198, 295, 296, 370. 
ortogonal, 240, 244, 246, 269, 283, 284, 285, 
cap. 9. 
en perspectiva, cap. 11. 
puntero, 361. 
punto, 51, 69, 78, 81, 165, 166, 188, 223, 224, 
226, 229, 231, 278, 362. 
de contacto, 69, 
de corte, 296, 297. 
discretos, 28. 
entrada variable, 361. 
extremo, 82. 
final, 225. 
de fuga, 287. 
de referencia, 116. 
inicial, 229. 
de intersección, 80, 82. 
terminal, 296. 
PX, 230, 231, 233. 
PY, 230, 231, 233. 
PZ2301,.231,233. 


Q, 110, 114, 121. 
QX, 231, 233, 
QY, 231, 233. 
QZ, 231, 233. 


R, 101, 106, 108, 114, 223, 271. 
radianes, 60, 123, 183, 184, 232. 
radio, 59. 
raices, 93. 
RAM (véase memorias). 
rango principal, 86. 
RASTER SCAN, 19. 
rayo, 285. 
frontal, 284. 
READ, 23, 145, 193,269. 
recorte, 292. 
rectángulo, 274. 
rectas (véase líneas rectas). 
reflexión, 226. 
registro, 321. 


regla del coseno, 86. 
rejilla, 144, 278. 
REM, 14, 184, 312. 
renumeración, 331. 
relación funcional, 78. 
representación funcional, 89, 92. 
resolución, 60. 
alta, 36, 38. 
media, 130, 372. 
ROM (véase memorias). 
rotación, 102,104, 105, 111, 223, 227, 229. 
eje de, 230, 231, 233. 
sobre un eje arbitrario, 230, 231, 236. 
sobre el eje de coordenadas, 227. 
sobre el eje X, 227. 
sobre el eje Y, 228. 
sobre el eje Z, 228, 230. 
ROTACION, 144. 
rotxy, 235. 
RUN, 14. 
rutl, 279, 303, 373. 
rut2, 124. 
rut3, 279, 312, 373. 


S, 131, 193. 

SAVE, 14, 145, 338. 

scene, 312. 

Scrabble, 371. 

SCREENS, 41, 374. 

scroll, 327. 

segmento, 53, 75, 76, 77, 82, 83, 184, 278, 297. 

semieje, 109. 

sentido, 75, 85, 86. 
antihorario, 266, 267, 268. 
horario, 268. 
negativo, 78. 
positivo, 78. 

SETUP, 239. 

SIN, 86. 

sistema de coordenadas, 50, 97, 105. 

software, 9. 

sombreado, 189. 

STRS, 317. 

string, 174, 180, 317. 

subíndice, 98. 

subprograma, 107. 

subrutina, 13, 46, 212, 224, 244, 245, 247, 315, 
322, 327, 333, 338. 

suma de vectores, 75, 76. 

superficie, 278. 

superficies ocultas (véase líneas y superficies 
ocultas). 

superíndice, 98. 

surface, 278. 

SX, 111, 226, 229. 

SY, 111, 226,229: 


SZ, 111,:226; 229. 


tabla de caracteres (véase caracteres). 
tabla de consultas, 338. 
tablero digitalizador, 166. 
tajada, 271. 
teclado, 127, 162, 362. 
teoría de números, 71. 
THETA, 105, 228, 230, 231, 235. 
tick, 168. 
tira de caracteres, 131, 191. 
tiskele, 38, 65. 
transformación, 100, 101, 102, 105, 106, 111, 112, 
115, 144, 223, 227, 229, 230, 233, 286, 290. 
cambio de escala, 223, 226, 229. 
coeficientes de la, 236. 
inversa, 101, 105, 229. 
lineal, 96, 223, 224. 
en perspectiva, 286-290. 
rotación (véase rotación). 
traslación (véase traslación). 
traslación, 102, 103, 105, 106, 111. 
trazado gráfico, 237. 
trazalínea, 292. 
triángulo, 266, 271. 
semejantes, 285. 
"EX, 111,225, 229,230: 
TY, 111, 225, 229, 230. 
TZ, 111, 225, 229, 230. 


UDG, 133. 
UDR, 133. 
USR, 322. 


V, 289, 295. 

valor absoluto, 76, 86. 

variación del ancho, 188. 

vector/vectores, 50, 51, 75, 76, 78, 85, 86, 88, 
89, 97, 98, 100, 121, 199, 223, 226, 230, 233, 
246, 252, 271, 295. 
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adición de, 75, 77. 
de base, 78, 80, 82, 199, 236. 
bidimensional, 50. 
columna, 97, 98, 99, 100, 223, 225, 236. 
de dirección, 78, 89, 199, 233, 236. 
fila de un, 100, 101, 223, 236. 
módulo de un, 199. e 
producto de, 97. 
unidad, 86. 
velocidad, 295. 
verde, 167. 
VERT, 51, 69, 71, 84, 94, 280, 303. 
vértice, 54, 97, 109, 246, 252, 256, 260, 266, 274, 
311. 
videojuego, 344-364. 
visión, 283, 288, 292. 
plano de, 284. 
pirámide de, 292. 


W, 231, 233, 289, 293. 


X, 107. 

XB, 280. 

XMOVE, 52, 71. 
XORIG, 51, 52. 
XPEN, 51. 

XSCALE, 57. 

XT, 280. 

XYSCALE, 51, 57, 60. 


Y, 107. 
YMOVE, 52, 71. 
YORIG, 52. 
YPEN, 51. 
YSCALE, 57. 


ZB, 280. 
zona de presentación, 128, 129, 
ZT, 280. 
ZX, 132. 


Indice de subprogramas 


Etiqueta 


ammo 
angle 

bar 

big pixels 
bomb camp 
bomb gun 
camp 

celtic 

char 


CHARACTER GENERATOR 


charset 

CHESS GAME 
circlel 

circle2 

clip 

construct table 
create 

credit 

Cross 

cross cascade 

cube 

cuboctahedron 
cursor a 
dashed lines 

delete 

DIAGRAM PROGRAM 
dot 

dot cascade 


Nombre 


munición 

ángulo 

barra 

pixels gigantes 

bomba en campamento 
bombardeo del antiaéreo 
campamento 

espiral céltica 

carácter 

GENERADOR DE CARACTERES 
juego de caracteres 
TABLERO DE AJEDREZ 
círculo1 

círculo2 

recorte 

construye tabla 

crear 

puntuación 

cruz 

cascada de cruz 

cubo 

cuboctaedro 

cursor 

líneas de puntos 

borrar 

DIAGRAMAS 

punto 

cascada de punto 


incluidos en el texto 


Página 


171,357 


363 
363 
250, 254, 269, 304 
307 
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Etiqueta 


dotprod 
drawit 


drawlin 

ellipse 

envelope 

explode 

Euclid 

f 

fanfare 

flash 

FNA 

FN T 

FN X 

FN Y 

genrot 

gobble 

graph 

grid 

hatch 

hidden 

hiscore 

histo/typel 
histo/type2 
icosahedron 

idR2 

idR3 

in 

ink 

input 

intersection (line and plane) 
intersection (three planes) 
intersection (two lines) 
intersection (two planes) 
inv 

ISLAND DEFENCE 
jet 

key 

keyboard 

label 

line 

lineto 

list 

load 

loader 

look2 

look3 

main program (2-D) 
main program (3-D) 
main program (chess) 
main program (diagrams) 
MASTER MIND 
menu 

missile routines 
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Nombre 


producto escalar 
dibujo 


dibujalíneas 
elipse 
envolvente 
explosión 
Euclides 
función 
soniquete 
parpadeo 


rotación general 

engullido 

gráfica 

rejilla 

sombreado 

algoritmo líneas ocultas 
maxpuntos 

histograma/tipol1 
histograma/tipo2 

icosaedro 

identidad2 

identidad3 

dentro 

tinta 

entrada 

intersección de recta y plano 
intersección de tres planos 
intersección de dos rectas 
intersección de dos planos 
inversa de matriz 3 x 3 
DEFENSA DE LA ISLA 
reactor 

tecla 

teclado 

etiquetado 

línea 

trazalíneas 

listado 

carga 

cargador código máquina 
observación2 

observación3 

programa principal (dos dimensiones) 
programa principal (tres dimensiones) 
programa principal (ajedrez) 
programa principal (diagramas) 
MASTER MIND 

menú 

subrutinas del misil 


Página 


208 
121, 123, 255, 258, 


157 
323 


Etiqueta 


move 
moveto 
movie 
mult2 
mult3 
number 
orientation 
paper 
pie-chart 
piece 
plane 
plot 
point 
polygon 
print routine 
query 
reload 
renumber 
revbod 
rot2 

rot3 

save 
scale2 
scale3 
scene2 
scene3 


scroll (wrap around) 
self-listing program 
set 

setorigin 

ship 

slide 

spiral 

spiro 

square (outside squares) 
starl 

star2 

start 
start/restart 
status 
surface 
symbol 
target 

thin 

tran2 

tran3 
vecprod 
worm 
WORM GAME 


Nombre 


movimiento 
trazapuntos 

cine 

multiplicación2 
multiplicación3 
número 

orientación triángulo 
papel 

circulo porcentual 
pieza 

avión 

plot/CalComp 

punto 

polígono 

subrutina de impresión 
opciones 

recarga 

renumerado 

cuerpo de revolución 
rotación2 

rotación3 

grabación 

escala2 

escala3 

escena2 

escena3 


scroll inverso 
programa autolistante 
juego 

fijaorigen 

nave 

diapositiva 

espirall 

espirógrafo 

cuadrados en cuadrados 
estrella 1 

estrella2 

comienzo 

comienzo juego 
estado 

superficie 

simbolo 

objeto 

variación de ancho 
traslación2 
traslación3 

producto vectorial 
gusano 

JUEGO DEL GUSANO 


109, 113, 117, 121 
15, 249, 251, 253, 
257, 260, 274, 
289, 303, 308 
328 
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ANAYA MULTIMEDIA 


Colección «MICROINFORMATICA» 


PROGRAMACION AVANZADA EN BASIC.—Bishop, P. 

PASCAL A PARTIR DEL BASIC.—Brown, P. 

EL ORDENADOR PERSONAL: COMO ELEGIRLO Y UTI- 
LIZARLO.—Cavalcoli, A. 

PROGRAMACION EN BASIC: UN METODO PRACTI- 
CO.—Dachslager, H.; Hayashi, M.; Zucker, R. 

TU PRIMER LIBRO DEL ZX SPECTRUM.—Dewhirst, J.; 
Tennison, R. 

ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR (ZX 
Spectrum).—Gavin, M. 

EL ORDENADOR Y TUS HIJOS.—Hammond, R. 

EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENA- 
DOR.—Hartnell, T. 

BITS Y BYTES: INICIACION A LA INFORMATICA.—Hel- 
ler, R. S.; Martin, C. D. 

MICROINFORMATICA. Conceptos básicos.—Hollerbach, L. 

DESCUBRE LAS MATEMATICAS CON TU MICRO.— 
Johnson, D. 

EL ORDENADOR EN EL AULA.—Pentiraro, E. 

EL LIBRO DEL BASIC.—Zaks, R. 


DISEÑO DE GRAFICOS Y VIDEOJUEGOS (ZX Spec- 
trum).—Angell, |. O.; Jones, B. Y. 

MATEMATICAS DIVERTIDAS EN BASIC.—Kosniowski, C. 

INTELIGENCIA ARTIFICIAL. CONCEPTOS Y PROGRA- 
MAS.—Hartnell, T. 

¿QUE ES LA TELEMATICA? Nuevas tecnologías en la 
sociedad de la información.—Servello, F. 

COMO SE PROGRAMAN LOS ORDENADORES. Progra- 
mación estructurada básica.—De Rosso, V. 

«SPRITES» Y GRAFICOS EN LENGUAJE MAQUINA (ZX 
Spectrum).—Durst, J. 

EL LIBRO GIGANTE DE LOS JUEGOS PARA ZX SPEC- 
TRUM.—Hartnell, T. 

LENGUAJE MAQUINA AVANZADO (ZX Spectrum).— 
Webb, D. 

LOS ORDENADORES NO MUERDEN.——Coccione, L.; Win- 
ter, G. 


NOTAS 


El rápido avance de la tecnología ha permitido que actualmente existan 
ordenadores personales baratos con la potencia de cálculo y la. 
definición gráfica necesaria para afrontar aplicaciones de Diseño 
Asistido por Ordenador o desarrollar videojuegos interactivos y 
dinámicos. 


DISEÑO DE GRAFICOS Y VIDEOJUEGOS es un texto introductorio al 
campo de gráficos por ordenador, que es una de las áreas de más rápida 
expansión en el mundo de los ordenadores. Este libro constituye un 
paquete de «software gráfico» para tu Spectrum que te guiará hasta la ¿ 
geometría del espacio tridimensional, los algoritmos de líneas y 

superficies ocultas y la construcción y animación de complejos objetos 
tridimensionales. La última parte del libro ofrece ideas avanzadas de 
programación en BASIC y un ejemplo minuciosamente analizado de ; 
videojuego. ' 


DISEÑO DE GRAFICOS Y VIDEOJUEGOS supone que posees un 

razonable conocimiento de BASIC y de la geometría cartesiana y que 

deseas aprender nuevas aventuras en el mundo de los gráficos por : 
ordenador. CES 


Si los gráficos por ordenador te atraen... ¡adelante! 


ANAYA MULTIMEDIA 


